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ABSTRACT 

TKe temperature dependence o£ absorption coet^icients o£ ozone was 
studied between 7567 A and 4630 A, When the gas was coole4 from room 
temperature to -lOB* C, an overall increase in the absorption coefficients 
was noticed, live maximum increase of 5% occurred at X ■ 6020 A. In 
general, the absorption is linearly dependent on temperature. 

INTRODUCTION 

Ozone is one of the simplest triatomic molecules. Its importance in 
atmospheric chemistry has been the main reason for the sustained interest in 
its spectrun and molecular structure. A unifom and consistent set. of ozone 
absorption coefficients is highly desirable since such data are important in 

4 

atmospheric monitoring and quantitative ozone technology (such as rocket 
propulsion, water purification, disinfection, sterilization of containers 
for food, and sterilization of sewage). A number of basic research projects 
during the last decade have supplied new data and expanded the knowledge of 
the absorption sr*‘ctrum. 

Ozone has absorption bands extending from the infrared and visible to 
the ultraviolet (UV) . 'Hie infrared regions' bands, which have been exten~ 
sively studied, start at 3.3 Mm and extend to 14.3 Mm, with the strongest at 
9,6 MW. Tlie UV absorption spectrum consists of three bands; Chalonge 
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Laffibvte band (3400 A to 3b50 <)j Huggins band (3050 A to 3400 A)j and 
Hartley band (2200 A to 3000 A), Hie strongest and most i*eatureles8 absorp~ 
tlon in UV is the Hartley band with a maximum at 2550 A| filtering most of 
the incoming radiation to the atmosphere that would otherwise reach the 
earth's surface, nie Huggins band is a weak band with well-defined features 
that are further enhanced by lowering the gas temperature, the weakest is 
the Chalonge Lefebvre band with known features, similar to ikiggins bands, 
that increase in prominence by decreasing the temperature, tlte only band in 
the visible is the Chappuis band--a very weak band with a maximum of 6020 A 
with few apparent features. tlUs band is used for monitoring concentrations 
of atmospheric ozone, even though the absorption coefficients in UV are 
better known. Other visible atmospheric absorption measurements for ozone 
are preferred because of the simplicity in expervaental design and operation 
of the apparatus. Of the five studies (refs, 1-5) of absorption of coeffi- 
cients in the visible region, only two agree substantially (refs, 3 and 4)* 
Tl\e others reported that the magnitude of the absorption coefficients dif- 
fered by about 10%. Tlie major disagreement surrounds the conclusion report- 
ed on the temperature dependence of the absorption coefficient, Tlus con- 
troversy was the motivation for doing this research. 

The weakness of fhe absorption in the visible region retiuires spectro- 
scopic measurements to be made with a cell containing a high concentration 
of the gas. Hie technique to obtain highly concentrated ozone has made it 
necessary to produce pure liquid ozone and then boil the liquid for trans- 
ferring the ozone into the absorption cell. Tliis is particular ly dangerous 
since the slightest vibration could cause an exothermic reaction that could 
result in a serious explosion. Hiis potential hazard may account for the 
fact that many important physical properties of this subscance are not accu- 
rately known. The usual techniques for determining phyaical properties can 
rarely be applied; contact with materials usually used in experimental work 
must be avoided. Experience has shown that the most satisfactory materials 
for construction of the vacuum system are glass and teflon, which have been 
used in this work. 
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REVIEW OF PREVIOUS RESEARCH 


Absorption Coe££icients 

The absorption coefficients of ozone in the visible region have been 
the subject of numerous studies (refs. l‘*5). Early experiments used ozon*’ 
ized oxygen whereas those performed later by Inn and Tanaka (ref. 4) and 
Griggs (ref. 5) used pure ozone. The measuiements performed with ozonized 
oxygen relied on a separate measurement of the composition; thusi the early 
measurements of absorption were limited by the effectiveness of determining 
the compositions of the two measurements. These compositions would vary 
over the time of the experiment^ since a small amount of impurities and 
concentration of O 3 are the determining factor of 0 3 - decomposition rate. In 
view of the weakness of the Chappuis absorption, high concentrations of the 
gas ace required in the optical path to set a detectable signal. Thus, the 
researcher who used a mixture of ozone and oxygen had to use a long path to 
compensate for the oxygen in the tube. The concentration in the cell was 
determined either chemically or by observing the UV spectrum. The pressure 
measurements in the absorption tube were determined using a HgSO^ mano- 
meter. This type of manometer has a vapor pressure which introduces impuri- 
ties into the gas sample, affecting the decomposition rate of O 3 . Pure 
ozone absorption measurements of the Chappuis band by Inn and Tanaka were 
the results of an interpolation dependent on O 3 decomposition. The spec- 
trum they measured was corrected by observing the decay of ozone which was 
monitored at a fixed wavelength using a gas cell at the same temperature and 
pressure. They reported a decay of about 12 % in a five- to ten-minute 
interval. Later, Griggs purified ozone to 100% and was unable to detect any 
decay, yet he confirmed the findings of Inn and Tanaka in UV. However, in 
the visible region his measurements seem to agree better with the previous 
work by Vigroux (ref.. 3), 

Temperature Dependence of Absorption Coefficients 

In 1382 Chappuis, who two years earlier discovered the band that now 
bears his name, was the first to report the influence of temperature on the 
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temperdbUre on the absorption coefficient (ref. 6). The mixture he used to 
perform measurements in the range from room temperature to "50* C contained 
5% ozone. In 1935 Lefebvre (ref. 7) found the absorption spectrum in this 
region to be exactly the same at **60* C and room temperature using a mixture 
containing 6% ozone. tater, the variation in absorption coefficients was 
reported by Vassy (ref. 8)» who had used a more concentrated mixture of 
ozonized oxygen containing 60-70!l! ozone. His values for absorption were 
about 20% higher than those reported earlier. He found a variation of near- 
ly 30% for the temperature range of 18* C to -105* C. In 1947 » Humphrey and 
Badger (ref. 9)> used a mixture of 6% ozone and found no significant change 
iu the absorption coefficients from room to dry ice temperatures. Later in 
1948, Vassy and Vassy (ref. 2) investigated their previous findings, and 
corrected the error in the wavelengths they reported but confirmed the tem- 
perature dependence. Finally in 1953 Vigroux (ref. 3) measured the absorp- 
tion coefficients and temperature effects for all three ranges (infrared, 
visible, and UV). He established new values for the absorption coefficient 
in the visible region with peak of absorption of O.Q59 cm“^ (base IQ) at X ■ 
6020 A using an ozone concentration of approximately 30%, He employed a 
cross-shaped absorption tube, one arm of which was always used to determine 
the concentration of ozone by monitoring the UV band. Consequently, he was 
able to obtain the reduced thickness. Concerning temperature dependence, 
Vigroux supported the results of Humphrey and Badger. It should be noted 
that the determination of impurities and spectral data were not performed 
simultaneously. Inn and Tanaka (ref. 4) conjectured that a systematic error 
existed in Vassy 's method of measuring the reduced thickness of ozone, and 
that the error could account for the large discrepancies between Vassy' s 
findings and those of later researchers. 

All the temperature effect measurements were performed photographi- 
cally. The researchers had to cope with the problem of thermal equilibrium 
in the absorption cell at low temperatures. To avoid condensation of mois- 
tura on cell windows, pure air was blown on both ends of the cell. This 
moving dry air caused some heat exchange through the windows between the 
ozone molecules. 
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CHARACTERISTICS OF OZONE 


Appropriate handling ot ozone require! some knowledge of its physical 
and chemical properties. This knowledge is particularly important in the 
processes of purification and variation of temperature. 

Physical Properties of Ozone 

The following physical properties of ozone were important for our expe~ 
riment and its spectral analysis: 

A. Ozone is a blue gas with a characteristic odor (ref. 10). The 
boiling and melting points of pure ozone are -111,9* C (ref. ID and 
-192.5* C (ref. 12) respectively. The binding energy for ozone is 1.04 eV 
(ref. 13). This small value is indicative of the reactivity and oxidizing 
characteristics of this molecule. 

B. The ozone molecule O 3 is an isosceles triangle belonging to symr 
metry group C 2 V (i.e.. a two- fold symmetry axis and two planes of symmetry 
containing this axis). In this point group there are four types of elec- 
tronic states which, according to Herzberg (ref. 13), are classified as A^, 

Bp B 2 (Table 1). Taking into account the electron spins and the rota- 
tional motion of the molecule (which produce a magnetic field), the four 
electronic states are split into eight components (four singlets and four 
triplets) . 



Table 1. Character 

table of the 

symmetry 

group 

c 

2v 

1 

C (z) 
2 

a (yz) 
V 

0 (xz) 

V 

h 

+l 


+1 

•fl 

^2 

+1 

+l 

-1 

-1 

Bl 

+l 

-1 

+1 

-1 

B 2 

+l 

-1 

-1 

4-1 
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The description of electronic states in nnlyatomic molecules such as 
ozone depends largely on the method of calculation. Among the variety of 
approaches (such as MO, HF, LCAO«SCF, VB, SCVMO, and GVB) used to provide a 
description and calculation of electronic states, the method of generalized 
valence bond (GVB) leads to a firm conceptual model for understanding the 
nature of ozone's molecular states. In addition, the GVB method is based on 
rigorous quantum mechanical considerations using High-speed digital compu- 
ters for calculation of the electronic wave functions. The emphasis here is 
to introduce concepts that make it easier to visualize electron configura- 
tions without doing specific calculations. The GVB model assigns an orbital 
for each electron (each pair consists cf two highly overlapping orbitals). 
The orbitals are often localized onto centers different from their atomic 
origins. The description of molecules in the GVB approach requires an 
understanding of chemical bonding principles which, briefly stated, are as 
follows: In order to obtain a strong covalent bond between atoms it is 

essential that U) a s^r^ly occupied orbital on each atom be such that it 
overlaps significantly when the atoma are brought together, and ( 2 ) the 
orbitals of the bond must be nearly orthogonal to the other orbitals of the 
molecule not involved in the bond, 

In order to apply the GVB approach for O 3 (ref. 14) we first examined 
the atomic orbitals of 0, 02 , and, finally, O 3 . The usual orbitals for 

oxygen are (Is)^, ( 2 s) ( 2 p)'' with doubly occupied la, 2 s, 2 p(p,t) and 
two singly occupied 2p(py), 2p(p^) orbitals. Taking two oxygen atoms, 
there are two ways to couple the p orbitals. (Molecular orbitals that 
arise from p atomic orbitals are pften called n orbitals.) Case A 
(Figure 1) shows a doubly occupied p^ orbital belonging to the right 
atom combined with a singly occupied p,^ of the left atom and a singly 
occupied orbital (py) on the right atom with a doubly occupied orbital 
(py) on the left atom. In p,^ orbital corobinacion, the energy of the 
singly occupied p,^ orbital of the left oxygen atom increases as the 
interatomic distance R decreases (antibonding character) leading to the 
orthogoniuation between the double- and single-occupied orbitals. Further- 
more, the double-occupied p,^ orbital diminishes its electron-electron 
interaction by delocalizing onto the left oxygen atom decreasing the shield- 
ing of the left nucleus. The interaction produced by these three electrons 
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leada eo a binding energy of about 30 kcal. The lame situation exlata for 
the Py orbitals leading to the same energy. Thus, total bonding for O2 
vould be about 60 In case B, the two singly occupied p^ of each 

oxygen are combined to fora a doubly occupied, high overlapping orbital* 

This brings the py orbitals together, acquiring antibonding character in 
order to be orthogonal to each other. The increased antibonding in case D 
compared to Case A makes it reasonable to expect case A to be more stable 
(ground state). Similar to cases A and B, the third oxygen atom can be 
combined in two ways to one of the 0 in O2. (These configurations are 
classified by the numbers of electrons in k orbitals.) One can easily 
conclude that configuration is more stable than ir^; therefore, it is 
the ground state (O3), The manifold of electronic states of ozone can be 
obtained from (ground state) by exciting an elecron in a doubly occu** 
pied p orbital (in the plane) of 0 to a singly occupied orbital (perpen- 
dicular to the plane of the molecule). This results in a ir^ electronic 
state with two equivalent configurations (Figure 1). This in turn leads to 
two singlet and two triplet states. Again, by exciting an electron from the 
doubly occupied p orbital (in the plane) of 0 to the singly occupied 
(perpendicular to the plane), configuration appears with two states 
(2^A|,^B2). In the 2^A^ state the singly occupied orbitals (in the plane 
with spins of -1/2 and +1/2) can bond together yielding to an energy of 
about 1.5 eV above the ground state. Other states of ozone can be obtained 
by taking the most loosely bound electrons to various higher orbitals. 

Figure 2 shows the energies of different configurations of ozone based on 
theoretical calculations. 

All of these predicted states have bond angles (ref. 15) ranging from 
100 degrees to 120 degrees (Figure 3) with the exception of state 2^A^ 
which has an angle of 60 degrees (ring ozone). Transitions between states 

of ozone have been identified (refs. 16-19) as ^82 *■ ^A^ for infrared, 

^82 * for Hartley band, and as a blend of transitions for Chappuis 

region, (^B^ *- "■■■ 1 a^ and ^A2 * ^A^). There is no consensus for Huggins 

band though it has been suggef/ted (refs. 20 and 21) that it could belong 
to the same transition as Hartley band. 
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Chemical Properti@» o^' Osonts 


Tha decompoiitloti of oisone li extremely complex and difficult to study, 
Although the decomposition of the gaseous phase has been the subject of 
extensive researchi no satisfactory mechanism has ever been suggested to 
explain either the thermal or photochemical decompositions. Most of the 
known results indicate that the thermal decomposition is a result of the 
following mechanism; 

I . 

M + 0 H 

0 + Og 2 O 2 

3 


Reaction 2 is much faster than reaction 3 where M may be an inert molecule 
(such as O 2 , COi, He). The relative efficiencies depend on the particu" 
lar gas M in activating O 3 (compared to O 3 itself), the effectiveness 
of the reactions 1 and 2 are; O 2 •* 0,44| N 2 * 0.41, CO 2 ■ 1.06, and He * 
0.34 compared to O 3 = l.OO. The rate constants for reactions I through 3 
are as follows (ref. 22 ): 

kl ■ 4.61 10^^ exp(-24000/RT) liter/ (mole ^ sec.) (1) 

* 

lc 2 “ 6.00 ^ 10^ exp(+600/RT) liter^/(mole‘‘ ^ sec.) (2) 

kg “ 2.96 ^ 10^® exp(-6000/RT) Liter/(roole ^ sec.) (3) 


where R is universal gas constant in cal/moles. The specific rate con- 
stants of equations 1-3 are , k2 , kg. the atomic oxygen reaction rates 
for the mechanism l=*3 are: 


- k,[n][ 03 ] «) 

■(iri ■ 
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Assuming a stationary state for atomic oxygen, it follows that; 


Substituting equations 4, 5, and 6 into equation 7 we obtain: 
kl[03l[M] - k2[02][M](o]^^ ♦ k3[o]^J03] 


solving the above equation for [ o] we get equation 8; 

8 8 

, , ki[0a][M] 

[ o] - 

ss k2[02][M] + katOs] 


(7) 


( 8 ) 


In order to obtain the reaction rates for O3 while atomic oxygen is in 
equilibriim, we can write from mechanisms I, Z, and 3 the following rate 
equations: 


/dtOa 1\ 

_j - ki[n] [03I 
+( — ) > MOz] [o]33[m] 

\ dt /2 


■(^)3 “ 


Thus 

/d[03]\ 

-{ ) - ki[M] [O3] - k2[02] [0] [m] + k3[0] [O3] 

\ dt /total ss ss 


(9) 


( 10 ) 


( 11 ) 


( 12 ) 


Using equations (8) and (12) we obtain for the decomposition rate of ozone; 
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- 2k3[03l [0]gg 

\ dt /total 

Combining equations (8) and (13), which describe oisone'i.'' decomposition 
dependence on Oj conoentreclon. yields: 



total 


ZksIOs] ki[03] [M]/k2[02 ] [m] + k3[03] 


(14) 


Two special cases at standard temperature pressure (STP) will be examined: 

Case A. High ozone concentration limit where [O3 ] » [m] and [O2] ” 

[ m] . Taking a typical 0^ concentration of 98% and a 2% O2 
yields: 

■ (9.29)10“^raole/(liter x sec) 

Thus the percent decomposition rate of O3 would be ”■ 
(2)10“^ in percent per sec. 

Case B. Low ozone concentration limit where [O3] « [M] . Assuming a 
5% ozone concentration and 95% oxygen, the ozone percent 
decomposition rate would be; II 2 “ (1.6)i0”7 in percent per 
sec. 

t 

Comparison of with R2 shows that the percent decomposition rate 
of O3 at high ozone concentration is about 125 times faster than the per~ 
cent decomposition rate of O3 at low ozone concentration. Therefore the 

initial presence of O2 is a major factor determining the o;:*,one decomposi- 
tion. Not only oxygen, but small amounts of hydrocarbonic impurities (such 
as and Br2) found in the vacuum system are efficient catalysts and can 
sensitize rapid ozone decomposition leading to explosions. In addition, 
many solid substances such as coal and metal (Fe, Pt group)--especially 
silver — ^are very active catalysts (ref. 23). It is therefore important to 
recognize that decomposition of ozone depends on the particular strongly 
vacuum system that has been used. 
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Pum OKOue is phocoehemiaally clacomposed when exposed to viaible or UV 
light. Visible light is proposed to decompose O3 into Oai the ntechaniam 
being O3 + Iw — + O(^P). 11\o 0 atom (at the ground state 3 p) witl 

react with another oaone molecule, 0 + O3— ♦•O2 0?.. ilvus, in spectro- 
scopic studies o£ ocone's thermal decomposition, unnecessary exposure to 
light should be minimi red. 


Safety and Precaution 

Oaone is second to Elourine in its oxidation potential, this sieans 
that OKone will react with most siateriaU, which will lead to Che destruc- 
tion of oxone and impurities from the oxidized materials, therefore, only 
glass and teflon could be used in the apparatus because they are resistant 
to oxidation and ensure the cleanliness of the system; this limited the 
quantities of impurities that could effect the ozone concentration, the use 
of these inert materials was also important for safety because the decompo-* 
sition can be very rapid wlton there is a high concentration of ozone, 
resulting in explosions, Care w.as taken to I unit the impurities, minimize 
vibrations, and ensure chat there would bo no sudden pressure or temperature 
variations— all of which could lead to the rapid decomposicion of ozone. In 
addition, the use of silica gel was helpful because it safely stores quant i- 
ciea of ozone. Also, nonhydrocarbon vacuum pump oil was used because it 
does not react with oxygen and ozone as regular hydrocarbon oils do. As an 
added precaution, goggles and face shields were used and a shield of 
plexiglass was erected in front of the apparatus to protect the operator 
from flying glass caused by an explosion. Inhalation of ozone should be 
avoided; a threshold limit Vvslue of 0,1 ppn of ozone in the air has been 
established by the American Conference of Government Indus 1 1*1 al hygienists. 
For this reason an exhaust fan was installed in the lab. 

EX PE R IMEN'l' AL AP PARATU S 
Experimental Setup 

The experittiental apparatus included an ozonizer pump for initial 
evacuation and purification of ozone, pressure gauges, cell and coolant 
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system, snd spectrophotometer with recording system. A diagram of an ozone 
generating system is shown in Figure 4. All valves are teflon or stainless 
steel, Ttie glass trap containing silica gal was joined to the stainless 
steel portion of the system using a kovar seal, In Figure 4 the high vacuum 
portion of the system, which was stainless steel, is represented by thick 
solid lines; the teflon valves, 0.63 cm inside diameter, are marked by 

cgp . 


and the stainless steel valves are designated by 


Ozonize r 

The ozonizer is a sealed box which contains six glass tubes 65 cm in 
length and 5 cm in diameter, The glass tubes cover stainless steel foils 
which are connected in a series to serve as an electrode (Figure 5) . The 
production of ozone was initiated by the introduction of O 2 into the 
ozonizer which generated ozone by the silent electrical discharge method. 
This method is considered to be the most practical way to quickly produce a 
large quantity of ozone for laboratory purposes. This electrode was con- 
nected to a potential difference capable of generating 15 kv-AC while pass- 
ing a current of about 3 amps. The operation of the ozonizer required a 
steady current of water to keep it cool. Under these conditions the ozoni- 
zer generated about 2 % ozone for an oxygen flow of 4 liters per minute. For 
an experimental run the ozonizer was operated anywhere from 15 to 30 minutes 
while the generated ozone was trapped in the silica gel. 


Pumps 

Three different types of pumps were used to prepare the system and to 
purify the created ozone. 

t 

^ I 

1. A mechanical roughing pump contained silicon base oil in order to 
minimize interaction with ozone. The pump was connected to the system with 
a Linde molecular sieve type 13X which is a good catalyst to decompose ozone, 
thus limiting any ozone getting into the roughing pump. This pump provided 
a vacuum as low as 50 microns during the cleanup of the tzonizer. After the 
silica gel was saturated by gaseous ozone the pump was used to remove 
residual oxygen and other impurities. 
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2. A V«rian vac- sorb roughing pump operating at 70 microns to lO"** 
torr and containing absorbent material was employed to provide the base 
pressure for starting the vac- ion pump. This pump was not used during the 
purification process. 

3. A Varian vac- ion pump of 20 liters per second was initially used to 
obtain a high vacuum in the cell and then to pump on the liquid ozone. TIte 
operating pressure range is 10"^ to 10"^ torr for a non-baked system. 

Pressure Gauges 

The cell pressure was measured by a 222HS-A-1000 series of MKS Baratron 
electronic manometer. This is a stainless steel manometer which operates on 
the variable capacitance principle with response time of 5 msec and an ac- 
curacy of 1.5X. The input voltages are ±15 DC which are maintained by two 
independent power supplies. The output is displayed on a digital voltmeter. 
The Baratron measurements were calibrated before the experiment against a 
mercury manometer at room temperature, noting that no compensation for tem- 
perature is needed in the operating range from 0* to 100* G. Pressures 
during purification and evacuation of the system between 1000 and 10 microns 
were read on a Hasting vacuum gauge type DV-6M and lower pressures were 
measured using the vac- ion pump. 

The Absorption Cell 

The absorption cell (Figure 6) has a triple quartz wall with double 
supersill windows. The cell was used to confine a purified sample of gase- 
ous ozone through a teflon valve and then to study the dependence of absorp- 
tion coefficients on temperature. Low temperatures were achieved by passing 
cooled, vaporized N 2 through the space between the inner and niddle walls. 

A stable temperature for the gas sample was achieved by wrapping the cell 
and the teflon valve with 10 layers of glass wood- insulating material. This 
temperature was measured with a type K (chrome l-alumel) thermocouple with 
reference junction at 0* C, inserted between the inner and middle walls of 
this cell. This temperature was monitored on a digital electrometer 
(Keithle 616 electrometer) . Condensation of water vapor on the windows of 
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the cell was avoided by the evacuation of the space between the middle and 
outermost walls. Xn additioni thermal exchange was minimized by coating the 
outside surface of the outermost cell with silver. The following are the 
detailed specifications of the cell. 

1. Innermost cell; 8 cm in length, 2 cm in diameter with an inlet 
from outside (5 cm) which had an 0.37-cm inside diameter; the windows were 
glass-to-*glass sealed. 

2. Inner cell: enclosed with a glass cover and sealed off before the 

windows, thus designating the middle cell. 

3. Outermost cell: total length, 13 cm; diameter, 38 mm, concentric 

with the inner cell having glass-to-glass sealed windows. 

4. Space between middle and outermost walls was initially evacuated to 
10"® torr. 

5. Space between innermost and middle walls was accessible by two 
glass tubes 0.635 cm in diameter for passing coolant to obtain temperature 
control. 

6. Distance between innermost and middle walls was 4 mm. 

Cooling Technique 

Temperature was controlled by forcing N 2 from a pressurized tank, 
which was passed through liquid nitrogen, into a 50-liter stainless steel 
dewar. The inlet tube was made of copper and was immersed in liquid nitro- 
gen. Passing of N2 through the copper tube caused the liquid to vaporize, 
creating a positive pressure inside the dewar. An insulated teflon tube 
above the liquid level then transported the cold nitrogen vapor around the 
cell. By adjusting the rate of the flowing N 2 into the dewar the required 
temperature was obtained. With this technique temperatures as low as 
-150” C were produced. The time required to reach such a temperature was 
five to ten minutes depending on the flow rate of N 2 into the container 
and the level of liquid nitrogen in the dewar. In order to raise the 
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temperaturaj the outlet of the dewat from ths cell had to be disconnected 

and the inlet aide of the cell hud co be attached directly to the dry N2; 
valve of the laboratory by means of another copper tube. Tlien, by heating 
the copper tube, temperatures up to 80* 3 could be obtained (Figure 7). 

Spectrophotometer 

11^0 absorption coefficients were measured by a Perkin~Elmer Madel 200 
dual-beam spectrophotometer with a variable spectral band pass from 0.2 to 
4.0 nm. Tlie accuracy of the band pass was confirmed by using iodine gas. 

In this experiment the band pass was set to 0.3 nm so that high resolution 
was sufficient throughout. Hie light sources were a tungsten lamp for the 
visible and a D2 source for the UV, These light sources together with the 
electronics require a warm-up time of approximately 45 minutes to achieve 
stable operation. To maintain long-time variation a calibration was done 
before each experiment by taking the absorption spectrum of the entity cell 
for Che required spectral range. 

The spectrophot oris?) ter is designed to compare the light intensity pass- 
ing through the sample with the light intensity passing through the refer- 
ence cell (Figure 8). Because of the space requirement for the sample cell 
insulation, the reference cell was removed, leaving a space in the optical 
path instead of the reference cell. The absorption coefficient, which is 
constant throughout the gas, can be c^;lculated from Beer's Law? 

I « I (15) 

o 

where Iq is the intensity of Che light entering the gas and I is the 
intensity exiting the gas cell with the thickness x. To correct for the 
cell windows' absorptions, the absorption of the empty cell was recorded. 
Thus: 


1(X) 


empty 


^0 ^ell^'^ 


do) 
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And for the gatii-filUd ceil: 


I(X) 




0 cell 


OK 


(17) 


Dividing aquation (17) by aquation (16) we obtain: 
^erapty(X) 

Solving for a we obtain; 

„ . i log hsL. 

^ ^erapty 


(18) 


(19) 


Than the absorption coefficient at stancjlard temperature and pressure would 
( 76)T 

be a . ■ " "VvTny •* a (temperature is in degrees kelvin and the pressure is in 

Stp 4/ JF 

cm of Hg) . 


Analog-To-Digital Converter 

The output signal from the spectrometer takes on values from 0 to 1 
volt, which corresponds to OX and 100% of absorption. These signals were 
fed directly into the North-Star Horizon microcomputer. The signals had to 
be first amplified by a factor of 10, then converted by an ANALOG- TO- DIGITAL 
MODULE that interpreted the 0- to 10-volt signal to an integer data from 0 
to 1023; the accuracy of determining the percent absorption was then 
100/1023, 


XY Recorder 

The variation of the absorption with temperature for a fixed wavelength 
was monitored on the Y-axis and X-axis of a Gould Brush 500 XY recorder. 

The X-axis input was connected to the spectrometer and the Y-axis to the 
thermocouple. The recorder was calibrated to known voltages (voltage cali- 
brator, DCV 8500) prior to the experiment. 
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EXPERIMENm PKOCEOURB 


The enperiinencal procedure is divided into tour parts: purification 

and pacification of the system; creation of ozonized oxygen, purification of 
ozone; and measurement of absorption coefficients of ozone in the absorption 
cell. Descriptions of each part follow, 

Part I, Tne complete system with the exception of the ozonizer and 
silica gel cold trap was helium- leak tested; then, using the roughing pump, 
the complete system was evacuated. The silica gel, used to absorb small 
quantities Of ozone safely, can easily absorb moisture which was removed by 
baking the silica gel while pumping with the vac-sorb pump. This procedure 
made it possible to attain a pressure as low as 8 microns. In the next step 
the glass, teflon valve and fittings of the vacuum system, and the MRS bara- 
ton were exposed to ozonized oxygen for two days in order to pacify the 
system. This is a normal procedure used to reduce the impurities during the 
process of making ozone. Once the system was pacified, all Valves except 
the venting valve Uf2) and oxygen inlet valve (#1) were opened. Then a 
roughing pump was used to obtain a vacuum down to 50 microns. A high vacuum 
was then obtained in the cell, isolating it from the rest of the system by 
closing valves #12 (pumping main valve), #6 (valve separating the final cold 
trap from double trap), and ?f5 (pressure gauge valve> . At this point the 
vac-sorb pump was cooled with LN 2 to reduce the pressure so that the vac-ion 
pump could be started. Once the pressure was reduced to 10 u the system was 
isolated from the vac-sorb pump by closing valve #13 (vac-sorb valve). Thus 
evacuation of the cell continued until 10^® torr was reached. While the 
vac-ion pump was working on the cell, ozone was created, 

Part II. The dewar under the silica gel cold trap was filled with a 
mixture containing dry ice and alcohol. This produced a stable temperature 
of -78* C in the silica gel. The water circulated around the ozonizer was 
turned on to remove the dissipated energy from the ozonizer, 'Dtis was ac- 
complished by a constant current of water (about 14 gal/hour) . The next 
step in the procedure was to close valve #14 (roughing valve) and to fill 
the system with pure oxygen. This was accomplished by opening valve 
(inlet oxygen valve) and monitoring the pressure until a slight over-pres- 
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dure was detected. Ttien valve #2 (venting valve) was opened and oxygen was 
allowed to pass through the system to remove the trapped impurities. This 
was necessary to allow the electric discharge to occur in pure oxygen. Then 
the ozonizer was turned on with a 75-volt reading on the input transformer- 
noting a current of 3 amps. Ti.is procedure produced ozonized oxygen with 2% 
ozone concentration. The positive oxygon pressure forced the ozonized 
oxygen to pass over a bed of silica gel that selectively ab'sorbed the ozone, 
allowing the oxygen to pass out of the system. After 10 minutes the silica 
gel turned blue and the ozonizer was turned off, followed by the closure of 
valves #2 (venting valve) and #l (inlet oxygen valve). At this point the 
created ozone in the silica gel was isolated from the ozonizer by closing 
valve f^3 (inlet ozonized oxygen valve). 

Part III. Ozone was purified by the following steps; (1) Valve Vl4 
(roughing valve) was opened slowly which allowed the remaining oxygen in the 
silica gel cold trap to be pumped out. i^fter pumping on the silica gel for 
45 minutes, the pressure reduced to 120 microns. At this point pumping had 
to be stopped to remove ozone. (2) The ozone was further purified when 
passed through the double trap to the single cold trap. In order to do so 
the dewar under the double trap was filled with dry ice and alcohol while 
valves Hi and #7 were closed (valve #11 connects the glass section to the 
stainless steel portion and valve #7 connects the single trap to the teflon 
tube). In the next step, valves #6 and #5 were opened (valve #6 separates 
the final cold trap from Che double trap and valve #5, between the cold crap 
and the MKS pressure gauge). Subsequently the dewar of liquid nitrogen 
(77 K) was puf under the single trap. The process of transferring ozone 
into Che single cold trap was started by increasing Che temperature of the 
silica gel. Thus, only impurities that do not freeze below -7d* C were 
allowed to pass through the double cold trap, while the ozone accumulated in 
Che single cold trap. (3) Purification of liquid ozone proceeded by closing 
valve #6. Thus the pump was allowed to operate on Che cold trap until a 
pressure of 50 microns was reached. Since the vapor pressure of oxygen is 
about 130 ram Hg at LN 2 temperature and the vapor pressure of ozone is only 
about 0.1 mm Hg, the pump was used to remove oxygen from the trap, leaving 
the ozone. (4) 
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Further purification wa« performed after the ozone waa diatiUed into the 
double trap. In order to do so, first the double cold trap had to be 
cleaned by increasing ita temperature and evacuating it (valve #11 was 
opened until a pressure of 30 microns was obtained). Subsequently^ valves 
#5 and #10 (separating silica gel from the double cold trap) were closed and 
LN 2 was placed under double cold trap. In order to transfer the ozone from 
the single trap to the double trap, valve #6 (located between the single and 
double cold trap) was opened and the single cold trap was heated. At this 
point pumping on the double trap was initiated by opening valve #5 (pressure 
gauge valve). The pressure was again reduced to about 50 microns. Valve #6 
was closed and liquid ozone was vaporized by removing the LN 2 dewar. This 
provided a fairly purified gaseous ozone. To further absorb impurities that 
freeze below -78* C, the double cold trap was enclosed by a mixture of dry 
ice and alcohol. Thus the gaseous ozone in the double cold trap served as a 
reservoir for the remainder of the experiment. (5) Small amounts of ozone 
were transferred into the single cold trap for final purification. This was 
done by closing valve #5 and opening valve #6 for a short period of time, 
Then LN 2 was placed under the single cold trap and valve #7 was slowly open- 
ed eo that pumping by vac- ion pump could proceed until a pressure of 10" 

* 

torr was achieved. (6) To free any trapped impure molecules mixed with 

I 

liquid ozone, valve #7 was closed allowing the liquid ozone to slowly vapor- 
ize by removing the LN 2 under the trap. This process allowed the adhered 
impurities together with the ozone to be brought into gaseous state. At 
this point the LH 2 was r&~ introduced under the trap, liquifying the ozone 
while releasing some of the adhered impurities. These residual impurities 
were removed by opening valve #7 and pumping until a pressure of 10“ ® torr 
was reached. The fact that oxygen at LN 2 temperature has a vapor pressure 
of 130 mm of Hg indicates that at # pressure of 10"^ torr the liquid should 
be 100% pure ozone. It is worth noting that the vaporization of this liq- 
uid, which took 10 minutes, was not accompanied by decomposition. (This is 
discussed later in this report.) The gas that was produced was used to fill 
the cell for measuring the temperature dependence of the absorption coeffi- 
cients. 

Part IV. Tiie followings steps were taken to measure the absorption 
coefficients; (1) During the 10 minutes when the vaporization of ozone in 
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the single cold trap occurredi the reference spectrun of the evacuated empty 
cell was recorded. The spectral region between 7567 A and 4630 A was 
scanned, taking about lU minutes. This produced a spectrun which was used 
for background correction. (2) The next step was to fill the cell with 
ozone which was isolated from the vac-ion pump by closing valve ^1, To 
measure the pressure in the cell, valve # was closed and valve ^5 was 
opened long enough to read the pressure. This avoided any decomposition of 
ozone on the surface of the stainless steel in the MRS pressure gauge. Then 
valve it9 (valve to the cell) was closed until the end of the experiment. 

(3) Several scans were taken with the filled cell in the optical path of the 
spectrophotometer. At the end of each scan the wavelength was automatically 
set to the same starting point. The low temperature spectrun was obtainiid 
by cooling the cell for approximately 20 minutes— enough time for the con- 
fined molecules to reach equilibrium. To raise the temperature, dry gas 
was circulated around the cell, requiring about 20 minutes to stabilize. In 
addition to the above procedure for measuring, the variation' of absorption 
coefficients on temperature was monitored by «e^.ecting a fixed wavelength 
while changing the temperature. These results were recorded on an XY 
recorder, 


RESULTS AND CONCLUSION 

Several sets of absorption coefficients in the visible region were 
obtained by changing the temperature of the purified confined gas sample. 
These raeasufwments were performed using a spectrophotometer with an 8-cra 
quartz absorption cell. The technique for determining temperature depen- 
dence was different from those used by previous investigators (for example, 
photoelectric detectors, pure ozone, and a capacitance pressure gauge were 
used instead of photographic detectors, ozonized oxygen, and a sulfuric acid 
manometer) . The absorptions recorded at room temperature in the visible 
region can be compared with those previously reported. 

The absorption apectrim obtained in this work together with those of 
Inn's and Tanaka's, Vigroux's and Griggs' are shown in Figure 9, The geci- 
eral spectral features found in the present work agree closely with Inn and 
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Tanaka axcapt chat in the present work the dllference in absorption coef- 
ficients between the two peaks was the sarae as that reported by Vigroux} 

Inn and Tanaka reported a smaller difference. Our measurements could differ 
from Inn's and Tanaka's because their values for the absorption coefficients 
were reached using interpolated decomposition values, Tliey reported lo to 
IZ% thermal decomposition of O3 over a period of 5 to 10 minutes. On the 
other hand we vaporized and liquified our ozone ten times in the sealed cold 
trap during a period of 90 minutes » showing only 0,3/i decomposition, 

The temperature effect was examined in this study by measuring the 
absorption coefficients for the Chappuis band in a sealed-off, gas-filled 
cell raised to different temperatures. The study consisted of three runs, 

In the first two runs there were several continuous spectral scans at dif- 
ferent temperatures; in the third run, variations of absorption were record- 
ed for specific wavelengths as a function of temperature. In each run the 
evacuated cell (10~® torr) was filled with pure ozone at room temperature, 
Ihe pressures for the first, second, and third runs were 24, 37, and 45 cm 
Mg eeapectively - 

During the first run three scans were taken, each scan starting at 4630 
A and stopping at 7567 A, Hie first scan was obtained at room temperature 
of 303 K and pressure of 24 cm Hg, The absorption coefficients are exhibit- 
ed in Figure 10. Hie second scan was performed thirty minutes later at a 
temperature of -lOh* C (thirty minutes were needed to cool the cell from 
room temperature). Having completed the second scan, the cell was brought 
back to room temperature and the third scan Was obtained about 30 minutes 
later. The absorption coefficients of the second and third scans are shown 
in Figures H and’ 12 respectively. Using computer program ozone (Appendix 
B), the difference between the first and the last scan is illustrated in 
Figure 13, showing a shift of 0.0008 cm"^ (base 10) in the background. 
Figures 14 and 15 show the differences between the first and the last two 
scans. These figures signify an overall increase in absorption coefficients 
with a maximum of 6% at X ■ 6020 A in going from room temperature to -108* 

C. In addition to the overall increase of absorption coefficients, there 
seemed to be local maximums and minirauras (Figure 15) — between 6000 A and 
4630 A— but because the wavelength reproducibility was 10 A we were unable 
to determine the wavelength associated with these various regions. 
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In Che iscond tun which iasCsd 44 hourii i@v@n scans (Figuras 16-22) ol 
absocpcion cocfCicisnts wctc psrformsd scstcing aC 4630 A and stopping at 
7567 A, The first four of these spectrums were taken success lye ly, each 25 
minutes from the previous one. In order to evaluate the quantitative decoir- 
position of ozone in the absorption celii the last two scans were performed 
43 and 44 hours after filling the cell (Figures 21 and 22), Tlie fill tem- 
perature and pressure of the ozone in the absorption cell for the second run 
was 303 K and 37 cm Hg. Using the fill condition) a spectral scan was per- 
formed (Figure 16), The next scan was performed at 198 K) noting that the 
maximum Increase (4,52) occurred at X ■ 6020 A (Figure 17). The third scan 
was obtained at 30* C (Figure 16), We reproduced the conditions of scans 2 
and 3 for scans 4 and 5 except that the low temperature for the fourth scan 
(Figure 19) was -108* C, The fifth scan (Figure 20) was taken 1.5 hours 
after the fourth one. At this point we examined the difference between low- 
and high-temperature spectra, The differences between the first and second 
scans and the third and second scans are exhibited in Figures 23 and 24, 

The difference between the third and fourth scans is associated with the 
largest temperature differential, and showed a 6% increase at X ■ 6020 A 
(Figure 25), The difference of absorptions between scans 3, 5, and 7 from 
the first scan are shown in Figures 26, 27, and 28 respectively. These 
figures, in particular Figure 28, were used to evaluate the decomposition 
rate which was found to be approximately 0,3% per hour, 

The fill pressure in the third run was 45 cm Hg at room temperature. 
Selecting wavelengths on the 8pectro»'hotometer, we monitored on an XY 
recorder the absorption while the ozone was liquified (at T ■ -111.9* C) and 
then vaporized and finally brought to room temperature. Each process of 
cooling and heating took 15-20 minutes. In Figure 29 the Y axis represents 
the absorption of 0% to 100% and the X axis represents the temperature in C. 
On each graph cooling and heating is designated by C or D respectively, 
Analyzing these graphs reveals that for the fixed wavelength chosen at 
several peaks and valleys the variation of absorption coefficients as a 
function of temperature is linear (shown in Table 2), 
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Table 2. Slopes of the variations of absorption coefficients 
as a function of temperature for fixed wavelengths. 


Wavelength 

(A) 

5200 

5698 

5858 

6020 

6500 

Slope 

(mV.c“^) .10 

5 

8 

7 

ll 



It is worth to mention that there was a temperature difference between 
the cell and its inlet tube, introducing some errors. Examining this effect 
the calculations were carried out with the result that a 100* C temperature 
difference would introduce only 0,8% in ozone absorption. 

The spectrums in the first two runs lead to the firm conclusion that 
this band is temperature dependent with maximim change in absorption of 5% 
at X ■ 6020 A for a difference temperature of -108* C to 30* C, whereas the 
reported values were 1% to 2%, 
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(a) GVB CONFIGURATIONS OF O2 



(b) GVB CONFIGURATIONS OF O3 
tt'* tt^ 




(c) THE TT^ CONFIGURATION OF O3 



Figure 1 . A schematic representation of the GVB orbitals. 

The Porbitals are represented by a normal two- 
lobed shape, if in the plane and a circle if 
perpendicular to the plane, (a) The bonding 
GVB configurations Oj.. The bonding GVB con- 
j^lgurations of Oj. The upper two 0 atoms, 
represent the original O2 molecule to which 
the lower 0 atom is added, resulting in the 
two configurations shown. (c) The tt** configu- 
ration of ozone. 


26 


1 


Figure 2 


ORIGINAL* PAGE IS 
OF POOR QUALITY 



GVB 

FORM 


GROUND 

STATE 

GEOMETRY 




The energy levels of O 3 shown based upon the 
theoretical calculations. 


27 


ENERGY (a. 


OF POOR QUAUnV 


O 3 (R - 2.415) 
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Figure 3. The energy curves (GVB) for the excited states of 
ozone. In these calculations the 0-0 bond length 
was kept fixed and only the angle varied. 
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Figure 10. Calculated absorption coefficients of ozone at STP, using 
a gas sample at T = 303 K and P * 24 cm "Hg (fill 1) - 
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Figure 11. Calculated absorption coefficients of ozone at STP when te^erature 
of the gas was decreased froa 303 K to 165 K (50 ninutes after 
filling) at P * 24 cm Eg (fill 1). 
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Figure 16. Calculated absorption spectrum of ozone at STP using a gas 
sample which was at T = 303 K and P = 37 cm Hg (fill 2) . 
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Figure 17. Calculated absorption spectrum at STP (40 minutes after 
filling) at T = 198 K (fill 2) . 
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Figure 18. Calculated absorption spectrum at STP (60 minutes after 
filling) at T = 303 K (fill 2). 
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filling) at T = 165 K (fill 2) 
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Figure 21. Calculated absorption spectrum at STP (about 43 hours after 
filling) at T = 303 K (fill 2) . 
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reduced from 303 K to 298 K (time Interval be: 
two spectnims was about 35 minutes, fill 2) . 
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Figure 29. Variation of absorption coefficients for fixed 
* wavelengths as a function of temperature. C 

{ and H designate cooling and heating of the gas 

I sample during the experiment. 
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APPENDIX A 



ORlGiNAt PAGEJS 
OF POOR QUALITY 


APPENDIX A 
PROGRAM ADC 

This program accepts anolog input originating from Perkin- 
Elmer Model 200 and creates a disk file on drive Bt . The data 
containes 6000 blocks with one sample per block. These files were 
transfered to Dec-10 time shared computer# where the data was 
converted into decimal numbers. 




BEGIN: 

MVI 

A#2H 




STA 

PCB 

• 

f 

DISK B AS DATA DISK 


CALL 

INIT 

• 

t 

INIT MEMORY LOCN’S 


CALL 

PROMT 




CALL 

CHECK 

• 

0 

SEE IP PILE IS THERE 

MAIN: 

CALL 

INLINE 

• 

9 

TEXT LINE AT START 


CALL 

CALIB 




CALL 

DAT I ME 

* 

9 

GET THE TIME 


CALL 

INPT 




CALL 

SETSZ 

• 

9 

COMPUTE PILE SIZES 


CALL 

FTLE 




CALL 

MORE 




JRZ 

MAIN 



• 

JMP 

NUL 

9 

9 

RETURN TO CPM 

• 

*** PROMPT THE USERS 

*** 


PROMT : 

LX I 

D,MSG 

• 

9 

'•# OF CHANNELS" 


CALL 

OUTSTR 




CALL 

ECHO 




SBI 

30H 




CPI 

IH 




JM 

PROMT 




CPI 

3H 




JP 

PROMT 




STA 

CNT 




STA 

NUM 




CALL 

ECHO 




CPI 

CR 




JRNZ 

PROMT 




XRA 

A 




STA 

SEE 



PRMA: 

LXI 

D,MSG0 

• 

9 

SAMPLES / BLOCK (CH 0) 


CALL 

OUTSTR 




CALL 

INUM 




JM 

PRMA 




LXI 

XCHG 

D#SIZE 






CALL 

SAVEN2 

PRMB: 

LXI 

D,MSG1 


CALL 

OUTSTR 


CALL 

INUM 


JM 

PRMB 


LXI 

XCHG 

D,NUMBLK 


CALL 

SAVEN2 

PRMC; 

LXI 

D,MSG3 


CALL 

OUTSTR 


CALL 

INUM 


JM 

PRMC 


CALL 

SETSTP 


LXI 

H, STEPS 


CALL 

SAVEN2 

PRMl: 

LXI 

D,MSG2 


CALL 

OUTSTR 


CALL 

INUM 


JM 

PRMl 


CALL 

SETIM 


LXI 

H,CSTO 


CALL 

SAVEN2 


LDA 

CNT 


CPI 

1 


JRZ 

PRM3 

PRM2: 

LXI 

D,MSGE 


CALL 

OUTSTR 


GALL 

INUM 


JM 

PRM2 


CALL 

SETIM 


LXI 

H,CST1 


CALL 

SAVEN2 

PRM3: 

XRA 

A 


STA 

SLOW 


STA 

SEE 


LXI 

D,MSGS 


CALL 

OUTSTR 


CALL 

ECHO 


CPI 

'S' 


CZ 

SETSLO 


CALL 

ECHO 


CPI 

CR 


JRNZ 

PRM3 

PRM4: 

LXI 

D,MSGT 


CALL 

OUTSTR 


CALL 

ECHO 


CPI 

•Y* 


CZ 

SETSEE 


CALL 

ECHO 


CPI 

CR 


JRNZ 

PRM4 

PRM5: 

LXI 

D,MSGA 



CALL 

OUTSTR 


CALL 

ZERO 


RET 


SETSLO; 

STA 

SLOW 


RET 


SETSEE: 

STA 

SEE 


ORIGINAL PAGE IS 
OF POOR QUALITY 


; # OP BLOCKS 


; # STEPS PER BLOCKS ?? 


y CALCULATE PULSES /STEP 


y SAMPLES PER CHAN(l) 


y ONLY ONE ? 
y SAMP. .SEC. . (25 MAX) . 

y COMPUTE 


y PAST/SLOW MONITOR ?? 
y MUST BE SLOW MON 


y WANT TO WATCH ? 


TYPE 'B' TO BACKUP 
..OR 'P' PORWARD... 

. . <RETURN> TO EXIT 


57 


origin^'- pa® e 
qF poor QU/Vl.n» 


RET 

; 

; SAVE THE RESULT IN MEM **** 

; 


SAVEN2 : 

CALL 

SAVEN 


SAVENj 

MOV 

M,E 

LOW ORDER BYTE FIRST 


I NX 

H 



MOV 

M,D 



INX 

H 


• 

1 

RET 



; 

? 

• 

ithif 

CHECK FOR MORE FILES 


MORE : 

LXI 

D,MSGR t 

"MORE ? " 


CALL 

OUTSTR 



CALL 

ECHO 



CPI 

'N' 

NOPE ?? 


JRZ 

MCHEC 



CPI 

•Y' 



JRNZ 

MORE 



CALL 

ECHO 



CPI 

CR 



JRNZ 

MORE 



LDA 

NUM 



STA 

CNT 



LXI 

D,MSGB ; 

RETURN LOCN OR NEW ? 


CALL 

OUTSTR 



CALL 

ECHO 



CPI 

CR 



CNZ 

ZERO 7 

?? 


CZ 

RTURN 



LHLD 

NUMBLK+2 



SHLD 

NUMBLK 

RESTORE FILESIZE 


CALL 

INIT 



CALL 

INFLO 

GET NEW FILENAME 


XRA 

A 



RET 



MCHEC: 

CALL 

ECHO 



CPI 

CR 



JRNZ 

MORE 



OCR 

A 


• 

9 

RET 

• 

9 

NON ZERO 

• 

9 

« 

9 


CALIBRATE THE A TO D 

CONVERTER **** 

CALIB: 

MVI 

A,NUL 



STA 

UNI 



LXI 

D,MSG4 

"UNIPOLAR OR BIPOLAR 


CALL 

OUTSTR 



CALL 

ECHO 



CPI 

•b' 



CZ 

SETUNI 

-1 = BIPOLAR 


CPI 

•u' 



JRNZ 

CALIB 



CALL 

INCH 



CPI 

CR 



JRNZ 

CALIB 








ORIGINAL PAGE \B 
OF POOR QUALITY 


LDA 

UNI 




ORA 

A 




JM 

ETC 

t 

BIPOLAR 


LXI 

D,MSG5 

; 

SWITCH TO THE LEFT 


MVI 

B, 7H 




CALL 

CALP 




LXI 

D,MSG7 

* 

9 

LEFT POT TO ’OlFF' 


MVI 

B,6H 




JMPR 

CALP 



ETC: 

LXI 

D,MSG8 

• 

9 

SWITCH TO THE RIGHT 


MVI 

B, 7H 




CALL 

CALP 




LXI 

D,MSG10 

• 

9 

LEFT POT TO '03FF' 


MVI 

B,6H 



? 

JMPR 

CALP 



• 

SETUNI : 

CMA 


• 

9 

SET TO -1 


STA 

UNI 




MVI 

A, 'U ' 

• 

9 

FAKE OUT REST 

• 

1 

RET 




• 

CALP: 

CALL 

OUST 




CALL 

LOOP 




IN 

DAT 



• 

f 

RET 




• 

LPTl: 

IN 

STAT 




ANI 

2H 




RNZ 




LOOP: 

MVI 

A,CR 

• 

9 

CALL W/ CHAN # IN ’B* 


CALL 

OUCH 




MOV 

h,B 




OUT 

DSTAT 




NOP 




LPl: 

IN 

DSTAT 




RRC 





JRC 

LPl 




NOP 





IN 

DDAT 




MOV 

C, A 




NOP 





IN 

DDAT 




ANI 

03H 




CAIiL 

CNVERT 




MOV 

A,C 




CALL 

CNVERT 




LDA 

SLOW 




ORA 

A 


• 


JRZ 

LPTl 




MVI 

A» LF 




CALL 

OUCH 




CALL 

INCH 




CPI 

CR 




RZ 




• 

9 

• 

9 

JMPR 

LOOP 
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ORIGINM. Pf;°f ,’E 

CNVERTi PUSH PSW Qp pQOR QUALITY 



RRC 

RRC 

RRC 

RRC 

CALL 

VERT 


POP 

PSW 

VERT: 

ANI 

OFH 


ADI 

30H 


CPI 

3AH 


CP 

ABIAS 


CALL 

OUCH 

ABIAS: 

RET 

ADI 

7H 


RET 



INLINE: 


TXTLP: 


BACON: 


BACUP: 


INSERTING TEXT AT THE BEGINNING **** 


LXI 

H,TXTBUP 


LXI 

D,MSGL 


CALL 

OUST 


MVI 

c,o 

POSITION COUNTER 

CALL 

ECHO 


CPI 

7FH 

<RUBOUT> 

JRZ 

BACUP 


CPI 

OSH ; 

<®H> 

JRZ 

BACON 


CPI 

18H ; 

<ESC> 

JRZ 

INLINE 


MOV 

M,A 


I NX 

H 


I NR 

C 


CPI 

CR 


JRNZ 

TXTLP 


MVI 

A,LF 


GALL 

OUCH 


MOV 

M/A 


INX 

H 


MVI 

M, 26 

<®z> 

I NR 

C 


INR 

C 


MVI 

H,0 


MOV 

L,C 


SHLD 

TXTSZ 


SHLD 

RET 

TXTSZ2 



DCR 

C 


JM 

INLINE 


DCX 

H 


JMPR 

TXTLP 


DCR 

C 


JM 

INLINE 


DCX 

H 


MOV 

A,M 


CALL 

OUCH 

• 

JMPR 

TXTLP 



60 



0RU3INAI PAGE 13 

? OF POOR QUAtrnr, 

; 

; **** CREATING THE DISK FIDE **** 


; 


FILE I 

CALL 

SETUP 




LXI 

D,START0 




LHLD 

SHLO 




CALL 

RITE 




RZ 

CALL 

SETUP 




LXI 

D, START 1 


START OP PILE BLOCK 


LHLD 

SHLl 

; 

FILE 1 SIZE 

1 

JMP 

RITE 



; 

• 

0 

; 

CHECK 1 

*★★★ 

CHECKING FOR A 

PILE 

ALREADY THERE **** 

LDA 

PCBPN 

; 

LOOK AT FILENAME 


CPI 

1 • 



JRZ 

INPLO 

; 

GET ONE 


CALL 

DFIND 




CALL 

CLRPN 




INR 

A 




RZ 

CALL 

CRLP 




LXI 

D^MSGP 

• 

t 

RENAME NEW PILE ?? 


CALL 

OUTSTR 




CALL 

ECHO 




CPI 

59H 

• 

•Y' 


JRZ 

INPILE 



CALL 

CRLP 




LXI 

D,MSGW 

• 

0 

WARN THE SUCKER 


CALL 

OUTSTR 




CALL 

ECHO 




CPI 

59H 

• 

0 

HES SURE ?? 


JRNZ 

INPILE 

• 

0 

NOPE 


CALL 

INCH 

• 

0 

GET <CR> 


CPI 

CR 




JRNZ 

INFILE 

• 

0 

MUST NOT BE SURE 


CALL 

DBRASE 

• 

0 

ELSE ERASE IT 


CALL 

CLRPN 



• 

t 

RET 




« 

INPILE: 

CALL 

INCH 




CPI 

GR 




JRNZ 

CHECK 



INPLO : 

LXI 

H,PCB-fl 




MVI 

B,12 




CALL 

SETBLK 




CALL 

CLRPN 




CALL 

CRLP 




LXI 

H,PCB+1 




LXI 

D,MSGQ 

• 

0 

NEW FILENAME : 


CALL 

OUTSTR 



INPLl : 

CALL 

ECHO 




CPI 

7 PH 

« 

0 

RUBOUT ?? 


JRZ 

INPLO 




CPI 

2EH 

• 

0 

I 1 

• 


JRZ 

INPL2 





jl 

ii 

JRZ CHECK ORIGINAL PAGE 13 

MOV M,A or POOR QUALITY 

INK H 

JMPR INPIil 

1NPL2* LXI H,PCB*f9 

MVI B,3 

INPL3 I CALL ECHO 

CPX 7 PH 

JRZ INPLO 

CPI CR 

JRZ CHECK 

MOV M,A 

INX H 

OCR B 

JRNZ INPL3 

CALL INCH 

CPI CR 

JRNZ INPLO 

JMP CHECK 

; 

; 

f **** CLEAR THE GARBAGE AT END OP PCB **** 

J 

CLRPN: PUSH PSW 

MVI B,21 

LXI H,PCB+12 

CALL CLRBLK 

POP PSW 

RET 


; **** SETTING PILE SIZES **♦* 

; 

SETSZ: LXI D,MSGP 

CALL OUST 

LXI D,SIZO+l 

LXI H,SHL0-fl 

MOV A,M 

SBI OPPO 

CALL CALCS Z 

SBI OPFl 

CALCSZ; MOV M,A 

MOV B,A 

XRA A 

MOV A,B 

RAR ; DIV BY 2 HI BYTE 

STAX D 

DCX H 
DCX D 

MOV A,M 

RAR ; LO BYTE 

STAX D 

INX H 

INX H 

INX H 

INX D 

INX D 

INX D 

MOV A,M 62 


RET 


ORIGINAL PAaS U 
OF PCO'A QUALITY 


; **** SET UP FOR DISK WRITES **** 


J 


SETUP* 

CALL 

DMAKE 

; CREATE THE FILE 


INR 

A 



JZ 

CRERR 



CALL 

DO PEN 

; OPEN IT 


INR 

A 



JZ 

FLERR 


; 

RET 



; 

; 

t 

RITE* 

**** 

WRITING TO 

THE DISK **** 

CALL 

HEADER 



JMPR 

RITE 2 


RITEl I 

LXI 

H,BUFF 



MOV 

A,L 



STA 

BLKSZ 

; SIZE OF BLOCK 

RITE2* 

CALL 

BLK 

; TRANSFER THE BLOCK 


JRC 

DONE 



PUSH 

B 



PUSH 

D 



CALL 

DWRIT 



ORA 

A 



JNZ 

WRER 



POP 

D 



POP 

B 



JMPR 

RITEl 


DONE* 

XRA 

A 



SUB 

L 



MOV 

B,A 



CALL 

CLRBLK 



CALL 

DWRIT 



CALL 

DCLOS 



CALL 

UPFILE 

; UPDATE FILENAME 


CALL 

CLRFN 



LDA 

CNT 



DCR 

A 



STA 

CNT 


; 

RET 



• 

f 

• 

t 

f 

UPFILE: 

*** UPDATING THE 

FILENAME **** 

LDA 

PCB+6 

. ^ 


INR 

A 



CPI 

• . * 
• 

; OVERFLOW ? 


CZ 

UPFLl 



STA 

FCB+6 



RET 



UPFLl* 

LDA 

FCB+5 

. **4r*0* , 

! • • 


INR 

A 



CPI 

» * ’ 

• 

1 


CZ 

UPFL2 



STA 

FCB+5 



MVI 

A, 'O’ 



RET 


63 



UPPL2J LDA 

FCB+4 

f j *** 

I NR 

A 

CPI 

‘j ’ 


JZ 

CRERR 

; TOO MANY H 

STA 

FCB+4 


MVI 

Ai ‘0* 


RET 

; 




OF FOOB y^Al^TY 


; 

I 


; disk pile transfer **** 

; . . * SOURCE <DE> ... DESTINATION <HL> . . . 
t .. LENGTH "BLKSZ*' ... FILE SIZE <BC> 


f 

BLK; 

LDA 

BLKSZ 


DCR 

A 


STA 

BLKSZ 


JM 

BLKQ 


LDAX 

D 


MOV 

M^A 


INX 

H 


INX 

D 


DCR 

C 


JRZ 

HIBLK 


MOV 

A^C 


CPI 

OFPH 


JRNZ 

BLK 


DCR 

B 


JMPR 

BLK 

HIBLKt 

MOV 

A,B 


ORA 

A 


JRNZ 

STC 

RET 

BLK 

BLKQ: 

XRA 

A 

• 

f 

RET 


; 

? 

; 

HEADER: 


INSERT HEADER INFO **** 

PUSH 

H 


PUSH 

D ; SAVE THE SOURCES 


LX I 

H,BUPP ; SET UP DEST ADDRS 


LXI 

D,FCBPN ; NAME + EXT 


MVI 

B,ll 


CALL 

BLT 


MVI 

B.3 


CALL 

SETBLK 


CALL 

TIMEX ; DATE & TIME 


CALL 

OFFSET 


?v^L 

; X 2 


LXI 

D,SIZO 


CALL 

PILNUM ; # OF SAMPLES 


MVI 

B,27 


LXI 

D.SMPSC ; SAMPLES. SAMPLE PER. 


CALL 

BLT 


LDA 

OFST ; OFFSET 


RAL 



RAL 

; X 4 


LXI 

D.CSTO 7 CSTO+OFFSET * # CLOCKS/SAMPLE 


64 


OFFSET: 


TRITE: 


CALL 

FILNUM 

LXI 

D,CLKDT 

MVI 

B, 20 

CALL 

BLT 

XRA 

A 

LXI 

D,SIZE 

CALL 

FILNUM 

LXI 

D,DMSG 

MVI 

B> 15 

CALL 

BLT 

XRA 

A 

LXI 

D,NUMBLK+2 

CALL 

FILNUM 

MOV 

CMA 

A,L 

I NR 

A 

STA 

BLKSZ 

LXI 

D,DM2 

LXI 

B,13 

CALL 

BLK 

PUSH 

H 

LHLD 

TXTSZ 

MOV 

B,H 

MOV 

C,L 

POP 

D 

LXI 

XCHG 

H,TXTBUF 

CALL 

BLK 

CNC 

TRITE 

POP 

D 

POP 

RET 

B 

LDA 

CNT 

MOV 

B,A . 

LDA 

NUM 

SUB 

B 

STA 

RET 

OFST 



TEXT WRITING 

PUSH 

B 

PUSH 

D 

CALL 

DWRIT 

ORA 

A 

JNZ 

WRER . 

POP 

D 

POP 

B 

LXI 

H,BUFF 

MOV 

A,L 

STA 

BLKSZ 

CALL 

BLK 

RC 

JMPR 

TRITE 


t 3.3200 MS /CLOCK 0^ 


? NO OFFSET 
; SAMPLES /BLOCK 


; BLOKS /RUN 


; BC - SIZE OF TEXTFILE 
; DE>DEST . . . HL> SOURCE 


DISK **** 


**** TRANSFERRING A NUMBER TO FILE **** 







original 


PILNUM* 

ADD 

E 


OF POOR 

quality 


MOV 

E, A ; 

CORRECT OFFSET 



XCHG 






MOV 

C,M 

DE-BUFF HL-SRC OP # 




INX 

H 





MOV 

H,M 





MOV 

L » C * 

DE-BUPF HL-# 




LX I 

B, Ml 0000 





CALL 

PINUL 





LXI 

B, 10000 





DAD 

B 





LXI 

B,M1000 





CALL 

PINUL 





LXI 

B, 1000 





DAD 

B 





LXI 

B,M100 





CALL 

PINUL 

1 




LXI 

B,100 





DAD 

B 





LXI 

B,M10 





CALL 

PINUL 





MOV 

A,L 





ADI 

3AH 

CORRECTION+ASCII *0' 




STAX 

D 





INX 

D 





XCHG 






RET 





PINUL: 

PUSH 

D 





MVI 

D, '0* 





DAD 

B 





MOV 

A,H 





ORA 

A 





JM 

PINUL2 





I NR 

D 





JMPR 

PINUL-f3 




FINU;^2: 

MOV 

A,D 





POP 

D 





STAX 

D 





INX 

D 




• 

' 9 

RET 





t 

• 

1 

a. 


INSERTING DATE & TIME IN PILE **** 



# 

DATIME; 

CALL 

GET 





XRA 

A 





STA 

HH 





STA 

MM 





STA 

SS 





LXI 

B,TT 





LXI 

• H,C8600 





CALL 

SUBT 





LDA 

H2 





ANI 

80H 





JRNZ 

NODAY 




, NEWDAY: 

LXI 

H, DD 





I NR 

M 





CALL 

SETHW 





JMPR 

SUBHR 




'nODAY; 

LXI 

Bf TT 
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i 



LXI 

H,C06OO 


CALL 

ADDT 

SUBHR: 

LXI 

B.TT 


LXI 

n,C3600 


CALL 

SUBT 


LDA 

H2 


ANI 

80H 


JRNZ 

SUBPR 


LXI 

H,HH 


INR 

M 


JMPR 

SUBHR 

SUBPR: 

LXI 

B,TT 


LXI 

H,C3600 


CALL 

ADDT 

SUBMI: 

LXI 

B,TT 


LXI 

H,C60 


CALL 

SUBT 


LDA 

H2 


ANI 

80H 


JRNZ 

SUBSC 


LXI 

H,MM 


INR 

M 


JMPR 

SUBMI 

SUBSC: 

LXI 

B,TT 


LXI 

H,C60 


CALL 

ADDT 


LDA 

TT 


STA 

RET 

SS 


onisit'iAi: 

OF POOR 


PASS IS 

quality 


; ** MOVE TIME TO BUFFER ** 

TIMEX: LXI D, DD 

CALL BINAS 

CALL MONTH 

LXI D,HH 

CALL BINAS 

MVI M, ' : • 

I NX K 

LXI D,MM 

CALL BINAS 

MVI M, ' : • 

INX H 

LXI D,SS 

CALL BINAS 

MVI M,CR 

INX H 

MVI M,LF 

INX H 

RET 


ADDT: MVI E,3 

XRA A 

LOOPA: LDAX B 

ADC M 

STAX B 

DCR E 

RZ 

INX H 


CLEAR CARRY 


67 




I NX 

B 


ORIGIf^Al PAGE IS 

• 

t 

JMPR 

LOOPA 


OF POOR QUALITY 

« 

SUBT; 

MVI 

B,3 




XRA 

A 



LOOPS: 

LDAX 

B 




SBB 

M 




STAX 

B 




OCR 

E 




RZ 





I NX 

H 




INX 

B 



• 

t 

vTMPR 

LOOPS 



• 

9 

GET: 

IN 

TO 




STA 

HO 




IN 

T1 




STA 

HI 




IN 

T2 




STA 

H2 




ANI 

8H 




JRNZ 

GET 

; NOT READY 



LDA 

H2 




ANI 

IH 




STA 

H2 



• 

9 

RET 




• 

BINAS: 

LDAX 

D 

; GET TIME 



MVI 

C,HUND 




MVI 

D,0 




CALL 

TCON 




I NR 

D 



BAl; 

MOV 

A,E 




MVI 

C,TEN 




CALL 

TCON 




CPI 

•O' 




JRNZ 

BA 2 




DCR 

D 




JRNZ 

BA 3 



BA2; 

MOV 

M,B 




INX 

H 



BA3: 

MOV 

A,'*i 




ADI 

•O' 




MOV 

M,A 




INX 

H 




RET 




TCON: 

MVI 

B, 2FH 




I NR 

B 




SUB 

e 




JRNG 

TCON+2 




ADD 

C 




MOV 

E,A 




MOV 

K, B 



• 

9 

RET 




• 

SETHW: 

LDA 

HO 




68 




OUl' 

TO 


LDA 

HI 


OUT 

TX 


LDA 

H2 


OUT 

T2 

• 

* 

RET 


• 

MONTH? 

LDA 

MON 


MVI 

D,0 


MOV 

E^A 


LXI 

XCHG 

B,MONT 


DAD 

XCHG 

B 


MVI 

B,17 


JMPR 

OLT 7 RETURN 


• it'k'kii 

BLOCK TRANSFER **** 


<DE> ....DEST: <HL> 

BLT: 

LDAX 

D 


MOV 

M,A 


I NX 

H 7 


INX 

D 


DCR 

B 


JRNZ 

BLT 


RET 


* 

**** 

CLEARING A BLOCK OP 


**★* 

OR SETTING A BLOCK 

SETBLK: 

MVI 

A,20H 


JMPR 

CLRB2 

CLRBLK: 

MVI 

A,NUL 

GLRB2: 

MOV 

M,A 


INX 

H 


DCR 

B 


JRNZ 

CLRB2 

• 

t 

RET 


# 

• 

i 

★ * ** 

OUTPUTTING A STRING 

OUTSTR: 

LDAX 

D 


CPI 

RZ 



CALL 

OUCH 


INX 

D 


JMPR 

OUTSTR 


OF is 

OF POOR QUALITY 


7 GET CHARACTER 


I OUST; CALL 
JMPR 


*** OUTPUTTING STRING + <CR><LP> *** 

OUTSTR 

CRLP 


69 



eaarJfti. f*® ® 

OF POOR QUALITt 


I 


; 

; 

NUMBER: 

OUTPUTTING A NUMBER FROM PROMPT **** 

LDA 

SEE 


I NR 

A 


STA 

SEE 

• 

9 

ADI 

2PH ; LET OUCH DO THE REST 

• 

• 

**★* 

OUTPUTTING A CHARACTER **** 

f 

OUCH: 

PUSH 

PSW 


IN 

STAT 


ANI 

1 


JRZ 

OUCH+1 


POP 

PSW 


OUT 

DAT 


RET 




INPUTTING A CHARACTER **** 

INCH: 

IN 

STAT 


ANI 

2H 


JRZ 

INCH 


IN 

DAT 


ANI 

7PH 


CPI 

STAT j ©C 


RNZ 


• 

t 

JMP 

NUL ; REBOOT 

m 

t 

• 

t 

• 

**** 

INPUT OUTPUT W/ECHO **** 

ECHO: 

CALL 

INCH 

• 

1 

JMPR 

OUCH 

• 

f 

• 

t 

**** 

<CRXLF> **** 

t 

CRLP : 

MVI 

A,CR 


CALL 

OUCH 


MVI 

A,LP 

• 

9 

JMPR 

OUCH 

• 

9 

• 

9 

**** 

INPUTTING A NUMBER STRING **** 

9 


j5j<-r64K ♦** 

• 

9 

♦ ifc* * 

RESULT LEFT IN HL PAIR ***♦ 

INUM: 

LXI 

H,NUL 

I NLP: 

CALL 

ECHO 


CPI 

CR 


RZ 



SBI 

30H 


RM 

; WON'T WORK IF < 


CPI 

OAH ; N > 9 ??? 


JM 

INLP2 ; NOPE.. IT'S GOOD 


XRA 

A ; CLEAR IT 


HMl P 
OF POOR QUAiOt 

DCR A ; SET NEGATIVE 

RET 

INLP2: LXI D,NUL 

DAD H 

XCHG 

DAD D 

DAD H 

DAD H 

XCHG 

DAD D 

MVI D,NUL 

MOV E,A 

DAD D 

JMPR INLP 


**** INPUTTING DATA ♦*** 


INPT: LXI D,MSG12 ; <CR> WHEN READY 

CALL OUST 

CALL ECHO 

CPI STAT ; ©C ?? 

JZ NUL ? JUMP TO CPM 

CPI CR 

JRNZ INPT 

LXI H^RANl ; TWO C.IANNELS 

LDA CNT 

DCR A 

JRNZ INSKP ; MUST BE TWO 

LXI H,RANO 

INSKP: SHLD JMPVCT 

CALL INCHEK 

MVI A, BELL ; DING DONG 

CALL OUCH 

RADM: CALL TICK ; PAUSE ONE CLOCK TICK 

CALL INSTEP ; CHECK FOR ABORT 

LHLD JMPVCT 

PCHL ; JMP FROM HERE 

RANI: LXI H,CST1 

CALL TIME 

JRNC RANG 

LHLD SHLl 

MVI A, 1 

CALL ADAV 

SHLD SHLl 

RANO: LXI H,CSTO 

CALL TIME 

JRNC RADM 

LHLD SHLO 

MVI A,0 

CALL ADAV 

SHLD SHLO 

LDA SEE 

ORA A 

CNZ MONIT 

LDA SIZE 

DCR A 

STA SIZE 
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HISIZj 


HISTP: 


JRZ 

HI5IZ 

CPI 

OPFH 

JRNZ 

RADM 

LDA 

SIZE+1 

DCR 

A 

STA 

SIZE+1 

JMPR 

RADM 

LDA 

SIZE+1 

ORA 

A 

JRNZ 

RADM 

CALI, 

STEP 

LHLD 

SIZES 

SHLD 

SIZE 

LDA 

NUMBLK 

DCR 

A 

STA 

NUMBLK 

JRZ 

HISTP 

CPI 

OPFH 

JRNZ 

RADM 

LDA 

NUMBLK+1 

DCR 

A 

STA 

NUMBLK+1 

JMPR 

RADM 

LDA 

NUMBLK+1 

ORA 

A 

RZ 

JMPR 

RADM 


ORIGINAL RAGS IS 
OF POOR QUALITY 


ADVANCE 

RESET BIOCK SIZE 


• 

$ 


STEPPING 

MOTOR AHEAD **** 

f 

STEP: 

LHLD 

XCHG 

STEPS 

; GET # STEPS 

STLP: 

CALL 

STP 



DCX 

D 



MO^/ 

A,E 



ORA 

D 




JRNZ STLP 
RET 


OF POOR QUACJTy 


j 

LPBACK: 

SBLP: 


*** LEAP BACKWARD *** 


LXI D.IOOOH } 400 NUMBERS 

CALL BSTP 

DCX D 

MOV A,E 

ORA D 

JRNZ SBLP 

RET 


★★★* STEP MOTOR ONE STEP BACKWARD **** 


BSTP: 

PUSH 

B 


MVI 

B, 2 

STPLPB: 

MVI 

A,0 


CALL 

POUT 


MVI 

A, 2 


Ci\LL 

POUT 


MVI 

A,0 


CALL 

POUT 


DCR 

B 


JRNZ 

STPLPB 


POP 

B 

• 

i 

RET 


• 

POUT: 

OUT 

0 

WAIT: 

PUSH 

B 


LXI 

B,02H 

WTLP: 

DCR 

B 


JRNZ 

WTLP 


DCR 

C 


JRNZ 

WTLP 


POP 

B 

• 

t 

• 

i 

RET 


• 

• 

0 

m 

9 

• 


STEPPING 

t 

STP:, 

PUSH 

B 


MVI 

B, 2 

STPLPP: 

MVI 

A,4H 


CALL 

POUT 


MVI 

A,6H 


CALL 

POUT 


MVI 

A,4H 


CALL 

POUT 


DCR 

B 


JRNZ 

STPLPF 


POP 

RET 

B 


7 MOTOR LOC'N 
7 SAVE 


IT 
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? 

; 

ZERO: 


ZDACK: 
ZLEAP : 
ZFORW: 
ZJUMP: 

ZEND: 

9 

9 

; 

• 

RTURN: 

TRTLP: 


INGHEK: 


**** ZERO-ING START LOCATION **** iJ 





OF POOR QMAU1Y 

CALL 

INCH 

; 

GET CMD 

CPI 

•B’ 

1 

BACK OPE STEP 

JRZ 

ZBACK 



CPI 

•L' 


LEAP BACK 

JRZ 

ZLEAP 



CPI 

•f' 

; 

ONE STEP FORWARD 

JRZ 

ZFORW 



CPI 

•J* 

; 

JUMP FORWARD 

JRZ 

ZJUMP 



CPI 

CR 



JRZ 

ZEND 



MVI 

A, BELL 



CALL 

OUCH 



JMPR 

ZERO 



CALL 

BSTP 



JMPR 

ZERO 



CALL 

LPBACK 



JMPR 

ZERO 



CALL 

STP 



JMPR 

ZERO 



LXI 

D,1000H 



CALL 

STLP 



JMPR 

ZERO 



DCR 

A 

NON- ZERO RETURN 

RET 





**** RETURN TO ORIGINAL START **** 


LHLD NUMBLK+2 

INX H ; CORRECT IT 

XCHG 

LHLD STEPS 

XCHG 

CALL SBLP 

DCX H 

MOV h, L 

ORA H 

JRNZ TRTLP 

LXI D, 500H 

CALL SBLP 

LXI D,500H 

JMP STLP 



CHECKING FOR INPUT 


CALL 

INSTEf 


XRA 

A 


CALL 

ADDRIV 


XRA 

A 

; SET TO 0 

ADD 

RNZ 

E 

j ANYTHING ?? 

ADD 

D 

; OR HERE ?7 

JRZ 

RET 

INCHEK 

f NOPE 



Of!!G!K-l I'SSZ [3 

Ofi POOR QUALITY 


; 

j 

INSTEP: 


; 

; 

f 

; 

SETSTPs 


SETiM; 


SETLP: 


TICK: 


I 


t 


TIME; 



®C ABORT 

CHECK **♦* 

IN 

STAT 


ANI 

DAT 


RZ 

IN 

DAT 


ANI 

7PH 


CPI 

03H 

; ®C 

RNZ 

JMP 

NUL 

; ABORT TO CPM 



COMPUTING 

STEPS PER 'TIC* **** 

XRA 

A 

• 

1 

CLEAR CARRY 

MOV 

A,H 

? 


RLC 


r 

LEFT INTO CARRY 

MOV 

DiA 

• 

9 

RESULT TO DE 

MOV 

A,L 



RLC 




MOV 

£,A 



RET 





•kitint 

COMPUTING SAMPLE 

INTERVAL TIMES **** 

MOV 

A,H 

f 

COMPLIMENT TO BG PAIR 

CMA 

' 



MOV 

B.A 



MOV 

A,L 



CMA 




MOV 

C,A 



INX 

B 

; 

. .DONE COMPLIMENTING 

LXI 

H,MAX 

• 

t 

300/SEC 

LXI 

D,NUL 

• 

1 

CLEAR BC PAIR 

DAD 

B 



MOV 

A,H 



ORA 

A 



RM 


• 

9 

RESULT LEFT IN <DE> 

INX 

D 



JMPR 

SETLP 





COMPUTES ELAPSED TIME **** 

IN 

6 

ANI 

4H 

JRZ 

TICK 

MVI 

A,50H 

OUT 

RET 

6 


MOV 

A,M 


DCR 

A 


MOV 

M,A 


JRZ 

HITIM 


CPI 

OFFH 

; UNDERFLOW ?? 

JRNZ 

GOODT 

; NO CARRY. .NO 
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INX 

H 




MOV 

A,M 




DCR 

M 




RET 




HITIMi 

INX 

H 




MOV 

A,M 




ORA 

A 




RNZ 

PUSH 

D 

; 

ZERO.. NO CARRY 


MOV 

E,L 




MOV 

D,H 




INX 

H 




INX 

H 

; 

LOOK AT SAVED COPY 


MOV 

A,M 




STAX 

D 




OCX 

H 




OCX 

D 




MOV 

A,M 




STAX 

D 




POP 

D 




STC 


• 

9 

SET CARRY 


RET 




GOODT; 

XRA 

A 

; 

CLEAR EVERYTING 

• 

$ 

RET 




• 

9 

t 

! 

MONIT: 


★*** MONITORING INPUT **** 

MVI 

A,20H 

• 

9 

SPACE 


CALL 

OUCH 




CALL 

OUCH 




CALL 

OUCH 




MOV 

A,D 




CALL 

CNVERT 




MOV 

A,E 




CALL 

CNVERT 




MVI 

A,CR 




JMP 

OUCH 




OF POOR QUAl*ttY 


**★* MOVING CONVERSIONS TO MEM **** 


ADAV: 

PUSH 

LXI 

H 

H,NUL 



MVI 

B, 20H 

; » 32 

ADLP2: 

PUSH 

CALL 

POP 

DAD 

DCR 

PSW 

ADDRIV 

PSW 

D 

B 

; COLLECT 32 SAMPLES 


JRNZ 

ADLP2 

; END OF SAMPLES 

/ 

MVI 

B,5H 

. 2**5 « 32 

■ ADLP3 : 

XRA 

A 

; DIVIDING BY 32 

(. 

MOV 

RAR 

A,H 



MOV 

H,A 


i 

i 

MOV 

RAR 

A,L 


fi 

MOV 

L,A 


1; 

DCR 

B 
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! 

} 

t 

; 

ADDRIVi 

ADLPli 


t 


JRNZ 

ADLP3 

XCHG 


POP 

H 

MOV 

M,D 

I NX 

H 

MOV 

M|E 

INX 

H 

RET 




OUT 

DSTAT 

NOP 


IN 

DSTAT 

RRC 


JRG 

ADLPl 

IN 

DDAT 

MOV 

E,A 

IN 

DDAT 

ANI 

03H 

MOV 

D,A 

RET 



TO D 


; END or DIVISION 
} SAVE RESULT 


PAGB !B 
OF POOR QUALITY 


DRIVER **** 


f 

; 

; 


*** SAVE THE FILENAME *** 


; 


SAVEPN ! 

LXI 

H,SAVPIL 

• 

DESTINATION 


LXI 

D,PCB 

• 

4 

SOURCE 


MVI 

B,ll 

• 

0 

FILENAME + EXT 


JMP 

BLT 

0 

4 

TRANSFER & RET 

RESTPN: 

LXI 

D,SAVPIL 

9 

SOURCE 


LXI 

H,FCB 

; 

DESTINATION 


MVI 

B, 11 




JMP 

BLT 




I 


f 


f 

f 


DMAKE : 


i 


DOPEN: 


f 


**** bDOS DRIVERS **** 

LXI D,PCB 

MVI C, CREATE 

CALL BDOS 

RET 


LXI D,PCB 

MVI C,OPEN 

CALL BDOS 

RET 


DWRIT; LXI D,FCB 

MVI C, WRITE 

CALL BDOS 

RET 



; 

DCt^OS t 


t 

7 

DPINDi 


DPLPi 


t 

7 

SETEMP; 


DERASE: 


RASLP: 


INIT: 


LXI 

D,FCB 



MVI 

C, CLOSE 



CALL 

BDOS 



RET 




XRA 

A 



STA 

TEMP 

7 

CLEAR TEMP 

LDA 

CNT 



STA 

TEMP2 

7 

GET # OP CHANNELS 

CALL 

SAVEPN 

7 

SAVE THE FILENAME 

LXI 

D,PCB 



MVI 

C,F1ND 



CALL 

BDOS 



INK 

A 



CN2 

SETEMP 

7 

NONZERO - PILE FOUND 

CALL 

UPFILE 

7 

UPDATE FILENAME 

LDA 

TEMP2 

7 

GET COUNT 

DCR 

A 



STA 

TEMP 2 



JRNZ 

DPLP 

• 

1 

STILL MORE TO CHECK 

CALL 

RESTPN 

• 

RESTORE FILENAME 

LDA 

TEMP 

; 

POUND STATUS . . . 0» NONE 

DCR 

A 

• 

t 

-1 ■ NON POUND 

RET 




MVI 

A, DAT 

• 

i 

NON ZERO 

STA 

TEMP 

• 

SET IT 

RET 





OF PCOB QUAU M 


CALL SAVEPN 

LDA CNT 

STA TEMP2 

CALL CLRPN ; START FRESH 

LXI D,FCB 

MVI C, ERASE 

CALL BDOS 

CALL UPFILE 

LDA TEMP2 

DCR A 

STA TEMP2 

JRNZ RASLP 7 ERASE THE NEXT ONE 
CALL RESTPN ; RESTORE THE FILENAME 

RET 


INIT MEM LOC'S **** 

XRA A 

OUT 0 ; TURN OFF MOTOR 

LXI H,SHLO 

LXI D,STARTO 

CALL SAVEN 

LXI D, START 1 

JMP SAVEN 



**** ERROR EXITS AND MSG CALLS 




PAGS 13 

Of POOH QUALHt 


• 

CRERR: 

LXI 

D,ERRM1 



JMPR 

ERRQ 


FLERR: 

LXI 

D,ERRM2 



JMPR 

ERRQ 


WRER: 

LXI 

D,ERRM3 



JMPR 

ERRQ 


MSCBR: 

LXI 

D,ERRM4 


ERRQ; 

CALL 

OUST 



MVI 

A, BELL 

i DINGALING 


CALL 

OUCH 


• 

0 

JMP 

NUii 



ORIGIIMAL FAQS ES 
OF POOR QUALITY 


i 


UNI: 

.BYTE 

0 


CNT: 

. BYTE 

0 


NUM : 

.BYTE 

0 


SEE: 

.BYTE 

0 


SLOW: 

.BYTE 

0 


OFST: 

.BYTE 

0 


BLKSZ: 

.BYTE 

0 


K^:*: 

.BYTE 

0 


Ml: 

.BYTE 

0 


H2: 

.BYTE 

0 


HH: 

.BYTE 

0 


MM: 

.BYTE 

0 


SS: 

.BYTE 

0 


TEMP: 

.BYTE 

0 


TEMP2: 

.BYTE 

0 


JMPVCT: 

.WORD 

0 

• 

TXTSZ: 

.WORD 

0 


TXTSZ2: 

.WORD 

0 


CSTO: 

.WORD 

0 


CSTSO: 

.WORD 

0 


csi:-,i : 

.WORD 

0 


CSTSl; 

.WORD 

0 


SIZE: 

.WORD 

0 ; SAMPLES /BLOCK 


SIZES: 

.WORD 

0 


NUMBLK: 

.WORD 

0,0 ; #BLOCKS/RUN 


STEPS : 

.WORD 

0,0 ; STEPS BETWEEN 

BLOCKS 

SHLO; 

.WORD 

0 


SHLl! 

.WORD 

0 


SIZO: 

.WORD 

0 


SIZl: 

.WORD 

0 


C8600: 

.BYTE 

128,81,1 


C3600: 

. BYTE 

16,14,0 


C60; 

.BYTE 

60,0,0 


Cl: 

.BYTE 

O 

o 


SAVFIL: 

. BLKB 

12 


MON: 

.BYTE 

85 


MONT: 

.ASCII 

® JANUARY 1982 ® 

; 0 

MOW2 : 

.ASCII 

® FEBRUARY 1982 ® 

; 17 

MON3: 

.ASCII 

® MARCH 1982 ® 

; 34 

MON4: 

.ASCII 

® APRIL 1982 ® 

; 51 

MON5 ; 

.ASCII 

® MAY 1982 ® 

y 68 


79 


M0N6: 

.ASCII 

® 

JUNE 1981 


; 

85 

MON7: 

.ASCII 


JULY 1981 

® 

t 

102 

M0N8: 

.ASCII 

« 

AUGUST 1981 


i 

119 

MON9 : 

.ASCII 

« 

SEPTEMBER 1981 

9 

« 

t 

136 

MONIO: 

.ASCII 


OCTOBER 1981 

® 

• 

1S3 

MONll: 

.ASCII 

® 

NOVEMBER 1981 


• 

i 

170 

MONX 2 : 

.ASCII 

» 

DECEMBER 1981 


m 

i 

187 

SMPSC: 

.ASCII 


SAMPLES. SAMPLE PERIOD 

as 9 

CLKDT : 

dtt 

.ASCII 


TIMES 3.3280 MSEC 



DMSG: 

.ASCII 


SAMPLES/BLK ; ® 




DM2: 

.ASCII 

« 

BLKS/RUN 




MSGA: 

.ASCII 

« 






REVERSE 


FORWARD 




STEP: 

'B* 


VP' 




JUMP: 

'L' 


’J' 





ORIGINAL PAGa IQ 
OF POOR QUALITY 


....TO EXIT ; <CR> : ? $® 

MSGB: .ASCII « 

TO RESET START POINT... <CR> 

ELSE ...<SPACE> : ? $® 

MSG4: .ASCII ® 

UNI- OR BI-POLAR ? (U OR B) : $® 

MSGS: .ASCII ® 

SET SWITCH TO LEFT (U)® 

MSG6: .ASCII « 

ADJUST RIGHT POT FOR "0000" (END W/<CR>)$® 

MSG7: .ASCII ® 

ADJUST LEFT POT FOR "01FF"$® 

MSGS: .ASCII « 

SET SWITCH TO THE RIGHT (B)» 

MSG9: .ASCII ® 

ADJUST CENTER POT FOR "0200" (END W/<CR>)$® 

MSGlO: .ASCII ® 

ADJUST LEFT POT FOR "03FP*‘$® 

MSGP: .ASCII ® 

PILE(S) ALREADY ON DISK. ... RENAME NEW FILE ? $® 
MSGQ: .ASCII ® 

NEW FILENAME ( .EXT) : ^® 

MSGW: .ASCII ® 

OLD FILE(C) WILL BE DESTROYED. . .ARE YOU SURE ? $® 
MSGS: .ASCII « 

FAST OR SLOW MONITOR ?? ( F=9600 , S=300 ) : $® 

ERRMl: .ASCII ® 

CANNOT CREATE FILE .... 

« 

ERRM2: .ASCII » 

PILE ERROR 

ERRM3; .ASCII ® 

WRITE ERROR ON DISK $® 

ERRM4; .ASCII ® 

' ?????$« 

MSG12: .ASCII ® 

TYPE A <CR> WHEN READY.® 

MSG, 14: .ASCII ® 

ABORT BY TYPING A <®C> $® 

MSGR: .ASCII ® 


ORlGWAi Pftff ® 

OF POOR QUALITY 


WANT TO TAKE MORE DATA (Y OR N ) : $® 

MSGT: .ASCII « 

WANT TO MONITOR INPUT ? (Y OR N) : $® 

MSGP: .ASCII » 

COLLECTION COMPLETE .. PLEASE WAIT?® 

MSGL: .ASCII « 

ONE LINE FOR INPUT >>>® [BELL] 

MSGL2s .ASCII ® 

<CR> ENDS . . . <ESC> RESETS . . . <RUBOUT> DELETES ?® 
MSG: .ASCII « 

# Oi' CHANNELS (1-2): $® 


MSGO: 

.ASCII 

« 




SAMPLES 

PER BLOCK (CHAN 0) 

: ?® 


MSGl: 

.ASCII 

® 




BLOCKS 

PER RUN 

: ?® 




MSG2: 

.ASCII 

® 




SAMPLES 

PER SECOND ? (100 

MAX) 

CHAN(#0) 

: $® 

MSGE: 

.ASCII 

® 




SAMPLES 

PER SECOND ? (100 

MAX) 

CHAN(#1) 

:$® 

MSG3: 

.ASCII 

® 




STEPS BETWEEN : 

BLOCKS : ?® 




TXTBUP: 

• 

t 

.BLKB 

8 OH 

TEXT 

BUFFER 


• 

NUL 

ssss 

OOH 




DAT 

SRS 

2H 




STAT 

== 

311 




BELL 


07H 




CR 

S3S 

ODH 




LF 

== 

OAH 




DSTAT 

asss 

41H 




DDAT 

ssss 

40H 




MAX 

5SS= 

012CH 




TO 


OFCH 




T1 

sss 

TO+1 




T2 

ssss 

TO+2 




TT 

== 

HO 




DD 

== 

OPFFH 




MIOOOO 

s=s 

0D8P0H , 




TTHOU 


10000 




MIOOO 


0FC18H 




THOU 


1000 




MlOO 

== 

0PP9CH 




HUND 

== 

100 




MIO 

=s= 

0PPP6H 




TEN 

==: 

10 




STARTO 

ss 

lOOOH 




OFFO 

== 

lOH 




START! 


9000K 




OFFl 

• 

$ 


90 H 





t 


« 

9 

• 

BDOS 


OSH 

BDOS EQUATES **** 

OPEN 

== 

15 

? -1 IF NOT FOUND 

WRITE 


21 

; 0=SUCCESS 

; l=ERROR IN EXTENDING 
; 2=NO MORE ROOM 


81 


CLOSE 

asst 

16 

• 

i 

-1 IP 

NOT PRESENT 

ERASE 

3I9SC 

19 




CREATE 


22 

t 

—1 as 

NO DIRECTORY 

FIND 


17 

• 

§ 

-1 IF 

' NOT FOUND 

BUFF 


80H 




FCB 

a. fix 

5CH 




PCBN 


PCB 




FCBPN 

as 

PCB+1 

• 

# 

NAME 


PCBEX 

• 

aa 

PCB+9 

• 

EXT 


t 

.END 

BEGIN 





OWGINAL PAGE (3 
OF POOR QUALITY 


00000000000000000000000000000000 

00000000000000000000000000000000 

000000000000 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


APPENDIX B 


OZONE, FOR 

THIS PROGRAM ACCEPTS Z-80 GENERATED ADC PILES 
ORIGINATING PROM DATA TAKEN ON A PERKIN-ELMER 
DOUBLE BEAM SPECTROPHOTOMETER AND PLOTS EITHER 
TRANSMISSION OR 

ABSORPTION COEFFICIENTS VRS . WAVELENGTH OR ENERGY 


COMMON/ PARAM/NPTS , T, NMBLKS , NSPB, START , STOP 
COMMON/PLOT/NPS , XMIN , XMAX , YMIN , YMAX , XGPON , , YGPON , 
IXGPOX, YGPOX,NUPAGE, NUGRAF, LNTYP, ISTP, ISYM, IXSCL, 
IIYSCL, IT 

DIMENSION Y(6500) ,TIT1(59) ,TIT2(59),YB(6500) 
DIMENSION XA(6500) ,XDAT(6500) ,YDAT(6500) 

DIMENSION TIT3 ( 59 ) , TIT4 ( 59 ) , TIT5 ( 59 ) 

EQU I VALENCE ( YDAT , YB ) 

DOUBLE PRECISION FNAME,BNAME 
DATA TITl/'ES ‘N‘ , 'E* , *R% ‘G‘ , ‘Y‘ , ‘ 

1, 'E' , 'V , V) ’ ,48*' '/ 

DATA TIT2/’A' ,’B','S','0','R','P','T','I','0’,'N' 
1,49*' 7 

DATA TIT3/'T' , ' R ' , ' A ' , ' N ' , ' S ’ , * M ' , ' I ' , ' S ' , ' S 
1' , 'I, 'O' , 'N' ,47*' '/ 

DATA TIT4/' W' ,'A','V','E','L','E','N','G','T','H' 
1,' ','(','A','N','G','S','T','R','0','M','S',')' 

1,37*' '/ 


DATA TIT5/'W' , 'A' , 'V 
I'R',' 'C','M', 


E' , 'N' , 'U ' , 'M' , 'B' , 'E' , 
,'1',')',42*' '/ 


68 TYPE 78 

73 FORMAT (IX/ IX 'PLOT TRANSMISSIONS (1 ) ABSORP. COEP. 

1(2) INDUCED ABSORB. (3) DIFFERENCE U )? s '$ ) 

ACCEPT *, PLOT 
NORM*0 

IP(PL0T.EQ.1.0R.PL0T.EQ.2.0R.PL0T.EQ.4) GO TO 1000 
TYPE 15 

15 FORMAT (IX, /IX, 'TYPE IN PRE-IRRAD. PILE NAME:'$) 
ACCEPT 6, BNAME 
CALL READ (YB, BNAME) 

1000 TYPE 5 

5 FORMAT (' TYPE IN PILE NAME:'$) 

ACCEPT 6, FNAME 

6 FORMAT (AlO) 

CALL READ (y, FNAME) 


84 



ORlGfMAL PAGE IS 
OF POOR QUALITY 


IP(PLOT.EQ.4) TYPE 5 
IF(PLOT.EQ.4) ACCEPT 6, PNAME 
IP(PLOT.EQ.4) GO TO 664 
TYPE 18 

18 FORMAT (IX/ IX ’NORMALIZE ? FILENAME?') 

ACCEPT NORM 

IP(NORM.EQ.l) ACCEPT 6, BNAME 
664 IP(NORMEQ.l) CALL READ (YB, BNAME) 

IP(PL0T.EQ.4) CALL READ (YB, PNAME) 

IP(NORM.NE.l) GO TO 82 
DO 66 IJ»1,NPTS 

IP(YB(IJ) .LE.0.80) YB(IJ)»YB(IJ-1) 

66 Y(IJ)»Y(IJ)/YB(IJ) 

82 IP(PLOT.EQ.4) CALL DIPP(Y,YB) 

IF(PL0T.EQ.1.0R.PL0T.EQ.4) GO TO 2000 
IP(PLOT.EQ.2) GO TO 1001 
CALL INDABS (Y,YB) 

GO TO 3 

1001 CALL ABSORP(Y) 

3 CONTINUE 
2000 TYPE 300 

300 FORMAT (IX/IX' SMOOTH DATA N TIMES.. ENTER N’ ) 
ACCEPT NSMOOT 

IF(NSMOOT.EQ.O) GO TO 301 
DO 17 I »1, NSMOOT 
17 CALL SMOOTH (Y,NPTS) 

301 NUPAGE='YES' 

NUGRAP='YES’ 

IXSCL=1 

IYSCL=1 

224 XGPON=l. 

YGPON-1 . 

XGPOX=7 . 5 
YGPOX=5 . 5 
XHLPOS=2.75 
YHLPOS=.25 
XVLPOS=0 . 

YVLPOS=5 . 0 
IT=5 

911 TYPE 173 

173 FORMAT (1X/1X'YMIN,YMAX ?') 

ACCEPT *, YMIN,YMAX 
TYPE 177 

177 FORMAT (IX/ IX ’X-AXIS: ENERGY(EV) (1), WAVELENGTH 

( 2 ), 

IWAVENUMBER (3) ?:'$) 

ACCEPT NIX 
CALL XCALIB(XA,NIX) 

TYPE 189 

189 FORMAT (IX/ IX 'ENTER XMIN XMAX ’ ) 

ACCEPT *, XMIN, XMAX 

178 LNTYP«-4 
ISTP=1 
ISYM=0 
Ll=l 


85 


ORIGINAL PAGE IS 
OF POOR QUALITY 


TYPE 70 

70 FORMAT (IX/ IX 'TAKE EVERY — TH POINT') 

ACCEPT *, NS KIP 
DO 62 K»1,NPTS,NSKIP 
XDAT(L1)-XA(K) 
yDAT(Ll)-Y(K) 

62 LX-Ll+1 
NPS*Ll-l 

188 CALL PLTGEN(XDAT,YDAT) 

IF(NIX.EQ.2) CALL LABL(XHLPOS,YHLPOS, 'H' ,TIT4,0. ) 
IF(PLOT.EQ.l) CALL LABL(XVLPOS, YVLPOS, ' V ,TIT3,0. ) 
IF(NIX.EQ.X) CALL LABL(XHLPOS,YHLPOS, 'H' ,TITX,0. ) 
IF(PLOT,EQ.2) CALL LABL(XVLPOS,YVLPOS, 'V ,TIT2,0. ) 
IF(NIX.EQ.3) CALL LABL(XHLPOS,YHLPOS, ‘H' ,TIT5,0. ) 
NUPAGE»'NO’ 

NUGRAF-'NO' 

67 CONTINUE 

CALL MOVABS(600, 7X0) 

CALL ANMODE 
TYPE X234, FNAME 
1234 FORMAT (XXAXO) 

CALL TINPUT(KL) 

CALL ERASE 
NU PAGE* ‘YES' 

NUGRAF='YES' 

TYPE 142 

142 FORMAT (ix/ XX 'GRAPH AGAIN ?') 

ACCEPT *, GRAG 
IF(GRAG.EQ.X) GO TO 911 
TYPE 63 

63 FORMAT (IX/' CHOOSE ANOTHER FILE? YES(X) NO(0)'/) 
ACCEPT 2, IANS 

2 FORMAT (15) 

IP (lANS.EQ.X) GO TO 68 
CALL EXIT 
END 
C 
C 
C 

SUBROUTINE INDABS (Y,YB) 

COMMON /PARAM/NPTS , T , NMBLKS , NS PB , START , STOP 
DIMENSION Y(X),YB(1) 

TYPE 16 

16 FORMAT (XX/XX, 'THICKNESS OF SAMPLE (IN CM)'/) 
ACCEPT T 
T-X/T 

44 DO 4 K=X,NPTS 
XX XX=X/Y(K) 

TD2=XX**2 

Y(K)«ALOG(XX) 

Y(K)=T*Y(K) 

XXX=X/YB(L) 

TB2=XX1**2 

XX2=AL0G(XX1) 

XX2=T^XX2 
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y(K)»Y(K)-XX2 
4 CONTINUE 
RETURN 
END 
C 
C 
C 

SUBROUTINE READ(Y, FNAME) 

COMMON /PARAM/NPTS , T, NMBLKS , NSPB, START , STOP 
DIMENSION Y(1),N(6500) 

DOUBLE PRECISION FNAME 
TYPE 100 

100 FORMAT (IX/IX* SUBROUTINE READ') 

OPEN (UNIT*23 , FILE^FNAME ) 

READ (23,*) NMBLKS , NS PB , NP TS , START , STO P 
READ(23,200) (N(K) ,K»1,NPTS) 

200 FORMAT(8(I4, IX) ) 

DO 10 I»1,NPTS 
Y(I)*N(I)/1023. 

10 CONTINUE 

CLOSE (UNIT*23 , FILE-PNAME ) 

RETURN 

END 

C 

C 

C 

SUBROUTINE XCALIB(X,NIX) 

COMMON/PARAM/NPTS , T, NMBLKS , NSPB, START , STOP 
DIMENSION X(l) 

TYPE 500 

500 FORMAT (IX/IX* SUBROUTINE XCALIB') 

DO 4 K=1,NPTS 

ZIP=«START-FLOAT ( K ) * ( START-STOP ) /NPTS 
XX3=ZIP*1.0E-8 

IF(NIX.EQ.1)X(K)*( (2.9979E10/XX3)*6.6256E-27)/l.6E-12 
IF(NIX.EQ.2) X(K)«ZIP 
IF(NIX.EQ.3) X(K)=1./XX3 
4 CONTINUE 

RETURN 
END 
C 
C 
C 

SUBROUTINE ABSORB (Y) 

COMMON/ PARAM/NPTS , T, NMBLKS , NSPB, START, STOP 
DIMENSION Y(l) 

TYPE 77 

77 FORMAT (IX/ IX 'BASE 10(1) OR BASE E(2) ?:'$) 

ACCEPT *,BASE 
TYPE 16 

16 FORMAT (IX/ IX, 'OPTICAL PATH LENGTH (IN CM):’$) 
ACCEPT *, T 
T*1/T 
TYPE 22 
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22 FORMAT (IX/ XX 'ENTER TEMP (KELVIN) AND 
PRESSURE (CM) : '$) 

ACCEPT *, TEMP ,SP 
STP*76*TEMP/(SP*273) 

44 DO 4 K»1,NPTS 

IP(Y(K).LE.0.0) Y(K)«Y(K-I) 

11 XX»1/V(K) 

IP(BASE.EQ.l) GO TO 66 
Y(K)»STP*T*ALCG(XX) 

GO TO 4 

66 Y(K)»STP*T*ALOG10(XX) 

4 CONTINUE 
RETURN 
END 
C 
C 
C 

SUBROUTINE DIFP(Y,YB) 

COMMON/PARAM/NPTS , T, NMBLKS , NSPB, START , STOP 
DIMENSION Y(1),YB(1) 

FRAC«76./273. 

TYPE 10 

10 FORMAT (IX/IX* SUBROUTINE DIPP') 

TYPE 20 

20 FORMAT (IX/IX' ENTER P1,T1 AND P2,T2:'$) 

ACCEPT *, Pl,Tl,P2,T2 
TYPE 60 

60 FORMAT (IX/ IX 'ENTER OPTICAL PATH LENGTH (CM):'$) 

ACCEPT *, T 
T*1 ,/t 

DO 11 I»1,NPTS 

.ARG*(YB(I)**(T2/P2) / Y(I ) **(T1/P1 ) ) 

Y ( I )»AL0G10 ( ARG ) *T*FRAC 

11 CONTINUE 
RETURN 
END 
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